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

发布时间：2020-12-15 21:41:34 所属栏目：大数据来源：网络整理

导读：在我的代码的第一部分,我读取一个文件,并将其中的不同部分存储在目录中的不同文件中,在下面我想读取该目录中我在代码的第一部分构建它的所有文件： while(file){#making files in directory Dir}opendir(Dir,$indirname) or die "cannot open directory $ind

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

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 "%sn",$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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!