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]

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]
      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]

Back to Cool Uses for Perl