Perl 简单脚本处理log信息

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

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

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

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

文件IO

open()

close()

正则表达式

$line =~ /error/ 

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

直接上代码

$filein = "log.txt";
$fileout = ">result.txt";
open(FIN, $filein);
open(FOUT, $fileout);
while(my $line = <FIN>) {
    if($line =~ /fatal error/){
        #print "$line";
        print FOUT $line;
    }

}
close(FIN);
close(FOUT);

命令行

perl find.pl

DONE