in reply to Perl: How to perfectly match specific data between two files and do comparison?
This looks wrong:
if ($line =~ m/(.*)\s+(.*)\s+(.*)\s+(.*)\s+(.*)\s+(.*)\s+( +.*)\s+(.*)\s+(.*)\s+(.*)\s+(.*)\s+(.*)\s+(.*)/) { if ($line !~ m/\((sa)\)/) { @arr1 = @emp; next if ($line =~ m/Name/); $name1 = "$1"; $score1 = "$12";
$12(not "$12") must refer to a previous regex.
|
|---|