my @output; foreach my $line (@log) { $line =~ m#\[(\d+)\,\'(.+)\]#i; print "we found $1 and $2\n\n"; my $one = $1; my $two = $2; $two =~ s/'//g; print LOG "<a href='http://stpap11/EAD/administrator/EditPackage.aspx? +PackageID=$one&SMSPackageID=$one&Title=&PackageType=0' target='new'>$ +two</a><br>"; }
In reply to Re^2: Basic regex to parse source code
by Anonymous Monk
in thread Basic regex to parse source code
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |