open(FILE1, "$file1") || die "can't open file"; open(FILE2, "$file2") || die "can't open file"; while (<FILE2>) { chomp; @array2= split; while(<FILE1>) { chomp; @array1 = split; } if ($array1[0] eq $array2[0]) print "match\n"; if ($array1[1] == $array[2]) { print $array[1]; } else { print " no match"; } }
In reply to Re: Re: help with search and match (Homework?)
by Anonymous Monk
in thread help with search and match
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |