$matched = 0; $newFile = "balabalabala_tmp"; die "usage: ./test.pl filename\n" if !defined $file; open FD, "<$file" or die "can't open $file:$!"; open TMP, ">$newFile"; select TMP; while() { $line = $_; if(!
...全文