这是我的目标：
查找特定文件并保存
a) 文件夹名
b) 带有完整路径的文件名
对于每个文件，使用文件名和文件夹名替换文件中的两个文本字符串，并将结果写入数组（稍后写入文件）
但我显然遗漏了一些东西，因为我的 foreach 循环不起作用。
use strict;
use warnings;
use diagnostics;
use File::Find::Rule;
use File::Spec;
use File::Basename;
use Cwd;
my $dir = cwd;
my $command_template = 'Here is my Filepath: file and this is the Folderpath: folder';
my $search_file = 'test.txt';
my @files = File::Find::Rule->file()
->name($search_file)
#->maxdepth(2)
->in($dir);
my @command_files;
foreach (@files){
my $directories = dirname ($_);
$command_template =~ s/file/$_/g;
$command_template =~ s/folder/$directories/g;
push(@command_files,$command_template,"\n");
}
print "@command_files";
open COMMAND_FILES, '>command_files.txt' or die "Can't open COMMAND_FILES: $!\n";
print COMMAND_FILES @command_files;
问题在这里：
foreach (@files){
my $directories = dirname ($_);
$command_template =~ s/filepath/$_/g;
$command_template =~ s/folder/$directories/g;
push(@command_files,$command_template,"\n");
}
如果我设置
@files = qw/ c:\1\test.txt c:\2\test.txt c:\2\1\test.txt /;
但所有内容都写入@command_files：
Here is my Filepath: c:\1\test.txt and this is the Folderpath: c:\1
Here is my Filepath: c:\1\test.txt and this is the Folderpath: c:\1
Here is my Filepath: c:\1\test.txt and this is the Folderpath: c:\1
我想：
Here is my Filepath: c:\1\test.txt and this is the Folderpath: c:\1
Here is my Filepath: c:\2\test.txt and this is the Folderpath: c:\2
Here is my Filepath: c:\2\1\test.txt and this is the Folderpath: c:\2\1
为什么 foreach 循环只在数组@files 中引入第一个内容？