WOW, thanks a heap. This is the best list ever. The fnal code that seems to
work is:
use strict;
my $file = "test.txt";
my $stuff="e:/$file";
open STUFF, $stuff or die "Cannot open $stuff for read :$!";
my $file_contents = do { local $/; <STUFF> };
while($file_contents =~ /new Array\\\(\\\);\\nkeyComp\[.+\] =
"([^"]*)","([^"]*)"/g) {
my $sku = $1;
my $product = $2;
#remove trailing slash, newline and comma
$product =~ tr/\\\r\n,//d;
print "[$sku] [$name] \n";
}
print "END OF FILE";
Next to download Parse::RecDescent & YAPE::Regex 3.00 & YAPE::Regex::Explain
3.01
Thanks again
Clinton
