我有一个包含路径列表的文本文件。
例如path.txt
/project/results/ver1/
/project/results/ver2/
/project/results/ver1000/
并且在每个路径中都包含一个名为report.txt的文件。我正在编写一个perl程序,以逐行读取path.txt文件,然后进入该路径并grep该文件report.txt。
我需要使用grep函数在文件中捕获一个关键字。
然后,我将结果提取到另一个文本文件中。
我尝试编写perl程序,但似乎不起作用。请原谅我,因为我还是编程新手。
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);
}
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);
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句