Perl을 사용하여 파일에서 키워드를 찾고 텍스트 파일로 출력

Question

나는 경로 목록이 들어있는 텍스트 파일을 가지고 있습니다.
예컨대 path.txt

/project/results/ver1/ 
/project/results/ver2/ 
/project/results/ver1000/ 

그리고 모든 경로에서이 REPORT.TXT라는 파일이 포함

. 나는 perl 프로그램을 작성하여 path.txt 파일을 한 줄씩 읽고 경로로 내려 가서 grep로 report.txt 파일을 작성한다.
grep 함수를 사용하여 파일에서 키워드를 잡아야합니다.
그런 다음 결과를 다른 텍스트 파일로 추출합니다.

나는 perl 프로그램을 작성하려했지만 제대로 작동하지 않는 것 같습니다. 프로그래밍에 익숙하지 않아서 용서해주십시오. bash 오래된 단순하고 간단 일반을 사용하지 왜

my $output = ("output.txt"); 
my $path = ("path.txt"); 
open (OUT,'>',$output) or die; 
open (PATH, '<',$path) or die; 
foreach (<PATH>){ 
chomp; 
$path1 = $_; 
chdir ("$path1"); 
my $ans = grep 'Total Output Is' , report.txt; 
print OUT "$ans\n"; 
chdir($pwd); 
} 

Answer 1

my $output = "output.txt"; 
my $path = "path.txt"; 
open (OUT, '>', $output) or die $!; 
open (PATH, '<', $path) or die $!; 

while (my $path1 = <PATH>) { 
    chomp $path1; 

    open my $fh, "<", "$path1/report.txt" or die $!; 
    /Total Output Is/ and print OUT $_ while <$fh>; 
    close($fh); 
} 

close(OUT); 
close(PATH); 

Answer 2

:

while read path; do 
    grep 'Total Output Is' "$path"/report.txt 
done <path.txt> output.txt