| | | |
| | | |
| | | |
| | Enter the string that you want to use a regular expression on: |
| |
| | Select the elements that you want to extract to run regular expression generator: |
| 2 | |
| | | | | | | | | | | | | string | "This_is_an_Example!" |
|
|
| |
|
| |
| | | What to click? | extract any integer in this position |  | | extract this integer (2006) in this position |
| |
|
| | |
| 3 | | Perl regular expression program that extracts the selected elements from the entered string: |
| | | | |
#!/usr/bin/perl
$txt='14:Mar:2019 "This is an Example!"';
$re1='';
$re2='.*?';
$re3='.';
$re4='.*?';
$re5='.';
$re6='.*?';
$re7='.';
$re8='.*?';
$re9='.';
$re10='.*?';
$re11='.';
$re12='.*?';
$re13='.';
$re14='.*?';
$re15='.';
$re16='.*?';
$re17='.';
$re18='.*?';
$re19='.';
$re20='.*?';
$re21='.';
$re22='.*?';
$re23='.';
$re24='.*?';
$re25='.';
$re26='(.)';
$re27='(This)';
$re=$re1.$re2.$re3.$re4.$re5.$re6.$re7.$re8.$re9.$re10.$re11.$re12.$re13.$re14.$re15.$re16.$re17.$re18.$re19.$re20.$re21.$re22.$re23.$re24.$re25.$re26.$re27;
if ($txt =~ m/$re/is)
{
$1=$1;
$c1=$2;
$var1=$3;
print "($1) ($c1) ($var1) \n";
}
| | |
|
|
| |
