我尝试打开文件夹中的文件列表。最终我想在其中插入一个 HTML 片段。到目前为止,我可以打开文件夹并读取数组中的列表。没关系。但是当我尝试使用变量作为文件名打开文件时,我每次都会收到一条错误消息(“权限被拒绝”)。无论我是使用 $_ 还是将列表项的值放入变量的其他变体。我在这里找到了类似的问题,但到目前为止还没有找到解决方案。这是我的代码:
use strict;
use warnings;
my ($line);
opendir (FOLDER,"path/to/folder/./") or die "$!";
my @folderlist = readdir(FOLDER);
my @sorted_folderlist = sort @folderlist;
close(FOLDER);
foreach (@sorted_folderlist) {
my $filename = $_;
open (READ, ">", "path/to/folder/$filename") or die "$!";
# do something
close (READ);
}
这里有什么错误?以及如何使用变量作为文件名打开文件?
普约恩
这是我为了回答 1 而更改的代码:
my $dh;
opendir $dh, "dir/./" or die ...
my @folderlist = grep { -f "dir/$_" } readdir $dh;
close $dh;
my @sorted_folderlist = sort @folderlist;
foreach my $filename (@sorted_folderlist) {
open my $fh, "<", "dir/$filename" or die ...
open my $writeto, ">", "new/$filename" or die ...
print $writeto "$fh";
close $fh;
close $writeto;
}
最佳答案
您的代码中有几个问题。
第一个导致错误的可能是 readdir()
将返回 .
和 ..
也,但这些是目录。所以你试着写信给 directory/.
.
其次,您的错误消息包含 $!
, 这很好,但你不输出文件名。那么你就会看到你的错误。
第三,调用一个为写入而打开的文件句柄 READ
.
此外,您现在应该使用词法文件句柄。
use strict;
use warnings;
opendir my $dh, "dir" or die $!;
# read all files, not directories
my @folderlist = grep { -f "dir/$_" } readdir $dh;
close $dh;
my @sorted_folderlist = sort @folderlist;
foreach my $filename (@sorted_folderlist) {
open my $fh, ">", "dir/$filename" or die "Could not write to dir/$filename: $!";
print $fh "foo...\n";
close $fh;
}
关于arrays - perl 打开文件名中带有变量的文件,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/47840317/