Perl 简单脚本处理log信息

执行了一段命令之后爆出了很多错误怎么收集

比如我们在编译一个大型项目时，编译出了很多报错，我们想收集出编译出错的每一行，肉眼看效率很低，在windows下没有grep怎么办呢？

在学习语法方面，使用perl比python更加快捷

最简单的文本处理，我们会用到perl那些内容呢？

文件IO

open()

close()

正则表达式

$line =~ /error/

line字符串中含有“error"字符串吗

直接上代码

 1 $filein = "log.txt";
 2 $fileout = ">result.txt";
 3 open(FIN, $filein);
 4 open(FOUT, $fileout);
 5 while(my $line = <FIN>) {
 6     if($line =~ /fatal error/){
 7         #print "$line";
 8         print FOUT $line;
 9     }
10
11 }
12 close(FIN);
13 close(FOUT);

命令行

perl find.pl

DONE