perl读取文件内容

[root@mysql1 perl]# cat test.pl  #!/usr/bin/env perl while (defined($line=<>)) {   chomp($line);   print "it was $line that i saw!\n"; } [root@mysql1 perl]# ./test.pl a.txt b.txt it was a that i saw!

>>阅读原文<<