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