tn%open(FILE1,"/tmp/file1"); open(FILE2,"/tmp/file2"); while(<FILE1>){ $var = $_; while(<FILE2>){ #compare $var against new $_ if($var eq $_){ print "$_ matched!\n"} } }
Edit: 2001-03-02 by neshura
In reply to Double While! by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |