log search

This snippet searches a log file for errors and warnings. It outputs those errors and warnings to an array. I grab this array from another file to post it in an applications message display on reboot after a power bump. Please let me know if there is a shorter way to do this. I'm a beginner so any comments are appreciated.

#!/opt/perl5/bin/perl5.005 -w

#File Name:  clean_start
#Author:  ###
#
#Description:  The purpose of this file is to search the #rc.log file 
+for errors and warnings. 
#status.  


use diagnostics;

open RC, "/etc/rc.log"                    
  or die "Can't open rc.log";

my @error = (grep /ERROR/i | /WARNING/i, <RC>);            

@message = join 'clean_start:', @error;    
print @message;                            
close RC;
[download]

Comment on log search Download Code

Replies are listed 'Best First'.
Re: log search by particle (Vicar) on Jun 12, 2003 at 15:37 UTC
this task can be accomplished with a perl one-liner: `perl -ne"/error\|warning/i && print" rc.log` but if you'd like to make it a script, with full error checking, i might do something like: `#!/opt/perl5/bin/perl5.005 -w use strict; use warnings; $\|++; ## process each file passed on command line for my $file ( @ARGV ) { ## open the file for reading open( RC => "<", $file ) or die "Can't open $file"; ## print the program name and current file to be processed print "$0: $file\n"; ## print errors and warnings while(<RC>) { print if /error\|warning/i } close RC; }` [download] ~Particle accelerates	[reply] [d/l] [select]
Re^2: log search by Aristotle (Chancellor) on Jun 16, 2003 at 14:06 UTC
One liner with clarity and efficiency: `perl -ne'print if /error/ or /warning/i' rc.log` [download] Golf: `perl -pe'$_ x=/error\|warning/i' rc.log` [download] Makeshifts last the longest.	[reply] [d/l] [select]


We don't bite newbies here... much
	PerlMonks