perl - 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";
}