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和warnings pragma）。

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 "$_";
    }
}

Answer 3

glob做你想要的，没有开/关的东西。一旦你将一组文件粘贴到@ARGV中，“钻石”操作符就会正常工作。

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

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

3 个答案: