gpt4 book ai didi

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

转载 作者:行者123 更新时间:2023-12-04 05:00:47 24 4
gpt4 key购买 nike

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

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 - 读取perl目录中的所有文件,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/5651659/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com