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

巴特西

Perl 简单脚本处理log信息

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

文件IO

正则表达式

直接上代码

命令行

DONE

最新文章

热门文章