读取perl中目录中的所有文件

Question

在我的代码的第一部分中,我读取了一个文件并将其中的不同部分存储在目录中的不同文件中,并且在下面我想读取该目录中我在代码的第一部分构建它的所有文件:

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>){


}

但是使用此代码,最后一个文件的最后一行不会被读取

Answer 1

由于我不知道你在线阅读循环中做了什么,并且不理解@docs和@Dir,我将展示对我有用的代码:

use strict;
use warnings;
use English;

my $dir = './_tmp/readFID';
foreach my $fp (glob("$dir/*.txt")) {
  printf "%s\n", $fp;
  open my $fh, "<", $fp or die "can't read open '$fp': $OS_ERROR";
  while (<$fh>) {
    printf "  %s", $_;
  }
  close $fh or die "can't read close '$fp': $OS_ERROR";
}

输出:

./_tmp/readFID/123.txt
  1
  2
  3
./_tmp/readFID/45.txt
  4
  5
./_tmp/readFID/678.txt
  6
  7
  8

也许您可以发现脚本的相关差异.

Answer 2

我稍稍修改了代码，仅在包含我的perl程序的目录中测试了基本概念，它似乎确实起作用。不过，您应该遍历@docs而不是@dir（并且我强烈建议同时使用strict和warning编译指示）。

opendir(DIR, ".") or die "cannot open directory";
@docs = grep(/\.pl$/,readdir(DIR));
foreach $file (@docs) {
    open (RES, $file) or die "could not open $file\n";
    while(<RES>){
        print "$_";
    }
}