使用perl搜索模式

Question

Perl上的新手。

需要协助在FTP服务器上查找搜索模式

以下示例

# more file1
1 
2
3

目录

# ls
1
2
3
4

如何使用perl搜索文件中的图案并匹配目录中的文件。 并显示如下

1
2 
3

感谢您的帮助

Answer 1

my $dir = "/path/to/some/dir";
my $filename = "some_filename";
my @files_to_find = ();

open my $file, '<', $filename or die $!;
while( my $line = <$file> ) {
    chomp $line;
    push @files_to_find, $line;
}
close $file;

for my $f (@files_to_find) {
    print "$f\n" if -e "$dir/$f";
}