原创 打印文件列表中的文件内容

#!/usr/bin/perl -w
# $> ./ex1.pl
$filelist = "Hello" ;
open TEST_LIST,$filelist if -e $filelist || die "Can't find the $filelist" ;
print "$filelist was found \n";
while(<TEST_LIST>) {
  chomp ;
  if (/^(\w+)/){
    $testcase = $1;
    print "Generating files of testcase < $testcase > ...\n";
    print "$testcase" ;
##    system ("echo $testcase");
  }
}
close TEST_LIST;