读取perl目录中的所有文件

如何解决读取perl目录中的所有文件

| 在我的代码的第一部分中，我读取了一个文件并将其不同部分存储在目录中的不同文件中，在下面的内容中，我想读取在代码的第一部分中构建该目录中的所有文件：

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


}

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

解决方法

由于我不知道您在行读取循环中正在做什么，并且不了解@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

也许您可以发现脚本的相关差异。     ,我稍稍修改了代码，仅在包含我的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 \"$_\";
    }
}

    ,

glob

做您想要的，而无需打开/关闭东西。一旦将一组文件粘贴到5中，“ diamond”运算符便会正常工作。

@ARGV = <$indirname/*.txt>;
while ( <> ) { 
    ... 
}