my @filename = glob("*.txt");for (@filename){ my $file = $_; open (HD "$file") || die $!; while () { my $line = $_; //处理它 ｝ close（HD);}
