在我的代码的第一部分中,我读取了一个文件并将其中的不同部分存储在目录中的不同文件中,并且在下面我想读取该目录中我在代码的第一部分构建它的所有文件:
while(<file>){
#making files in directory Dir
}
opendir(Dir, $indirname) or die "cannot open directory $indirname";
@docs = grep(/\.txt$/,readdir(Dir));
foreach $d (@Dir) {
$rdir="$indirname/$d";
open (res,$rdir) or die "could not open $rdir";
while(<res>){
}
但是使用此代码,最后一个文件的最后一行不会被读取