Question

perl高手求救！！！写一个perl程序

写一个perl程序，要运行在log文件上的，把每一行开始有“error“都挑出来，不管这行开始之前有没有空格，把挑出来的这些行转到standard error stream去， 剩下的转去standard output stream。 都挑完后，算出总共挑了几行出来。确保这个程序能同时运行多个文件！

比如有个log文件里有：
ERROR - general error 42.
Login successful. No ERROR found.
ERROR unexpected exception in pid 97.
ERROR: pid 97 terminated

当我们运行 cat logdata | 我的program.pl, 然后我们选出1，3，4行，最后写出“there were 3 errors”。

拜托拜托！！！

Answer 1

一定要使用 cat logdata | 我的program.pl 这种方式吗？
如果在perl脚本里打开文件会简单的多。

追问

貌似不太行，老是出错

追答

什么错误？我这里执行是没有问题的。
执行命令：cat logdata| perl program.pl，匹配上的行会输出到屏幕standard output stream

Answer 2

#!/usr/bin/perl -w
use strict;
foreach my$file(@ARGV)
{
my $errnum = 0;
open LOG,$file || die "can't open log file: $file\n";
while(<LOG>)
{
if (/^\s+ERROR/i)
{
$errnum ++;
print STDERR $_;
}
else
{
print $_;
}
}
close LOG;
print STDERR "-" x 50 , "\n";
print STDERR "There are $errnum error in file \"$file\"\n\n";
}

Answer 3

什么东东啊 呵呵 不知道啊