无法打开由Perl中的readdir返回的文件

Question

我遇到了Perl脚本的问题，如下所示。

我必须打开并分析目录中的所有* .txt文件，但我不能。

我可以读取保存在@files数组中并打印的文件名，但无法打开这些文件进行读取。

这是我的代码： my $dir= "../Scrivania/programmi" ;

opendir my ($dh), $dir; 
my @files = grep { -f and /\.txt/i } readdir $dir; 
closedir $dh; 

for my $file (@files) { 
$file = catfile($dir, $file); 
print qq{Opening "$file"\n}; 
open my $fh, '<', $file; 

# Do stuff with the data from $fh 

print "sono nel foreach\n"; 
print " in : "."$fh\n"; 
#open(CANALI,$fh); 
#@righe=<CANALI>; 
#close(CANALI); 
#print "canali:"."@righe\n"; 
#foreach $canali (@righe) 
#{ 
# $canali =~ /\d\d:\d\d (-) (.*)/; 
# $ora= $1; 
# 
# if($hhSplit[0] == $ora) 
# { 
#  push(@output, "$canali"); 
#  
# } 
#} 

} 

Answer 1

Using $dir在glob中是不正确的。 $dir是GLOB类型，不是字符串值。相反，您应该循环访问@files数组，并查找与您想要的名称相匹配的名称。也许像这样：

foreach my $fp (@files) { 
    if ($fp =~ /(.*).txt/) { 
    print "$fp is a .txt\n"; 
    open (my $in, "<", $fp) 
    while (<$in>) ... 
    } 
} 

Answer 2

你的主要问题是，通过readdir返回的文件名没有路径，所以你试图打开，比如说，x.txt时，你应该打开../Sc/direct/x.txt。本文件并不在当前工作目录存在，所以你open调用失败

你也有东西在glob("$dir/(.*).txt/")一个奇怪的混合体，看起来有点像一个正则表达式，这glob不明白。 $dir的值是从第一行的opendir开放的目录句柄。你应该使用的是glob '../Sc/direct/*.txt'，但是然后不需要readdir

有两种方法可以找到文件的内容。您可以使用opendir和readdir在目录中读到的一切，也可以使用glob

第一种方法只返回每个条目，这意味着你必须用路径串联每个名字包含目录的裸名称，最好从File::Spec::Functions使用catfile。它还包括伪目录.和..，因此您必须在使用名称列表之前将其过滤出来。

glob既没有这些缺点。它返回的所有字符串都是实际的目录条目，如果您在作为参数传递的模式中提供了一个，它们将包含路径

您似乎已经变得相当混乱，因此我编写了这个程序区分这两种方法。我希望它

use strict; 
use warnings; 
use v5.10.1; 
use autodie; 

use File::Spec::Functions qw/ catfile /; 

my $dir = '../Sc/direct'; 


### Using glob 

for my $file (glob catfile($dir, '*.txt')) { 
    print qq{Opening "$file"\n}; 
    open my $fh, '<', $file; 

    # Do stuff with the data from $fh 
} 


### Using opendir/readdir 

opendir my ($dh), $dir; 
my @files = grep { -f and /\.txt$/i } readdir $dir; 
closedir $dh; 

for my $file (@files) { 
    $file = catfile($dir, $file); 
    print qq{Opening "$file"\n}; 
    open my $fh, '<', $file; 

    # Do stuff with the data from $fh 
}