Hi all,
The following problem has been causing me alot of hassle and I'd really
appreciate some help with it.
I have the following piece of code which matches perfectly for a string
between the single qoute and the semi-colon:-
use strict;
#this part is to remove the functions from the qoutes that
#were added when the C::Scan was done.
my($mymatch,$line,@arr,$arr,$i);
open (FILE, "functions2.log") or die $!;
open (OUTFILE, ">thosecoolfuncs.log");
while ($mymatch = <FILE>) {
if ($mymatch =~ m/\'(.+)\;/gis) { #matches anything between the single
qoute and semi-colon and places it in the '$1' variable
print OUTFILE $1, "\n\n";
}
}
close (OUTFILE);
But the problem occurs when I add this into a bigger code segment, it
just goes crazy! And seems to match te complete opposite.
And ideas?
YM