#!/usr/bin/env perl # $Id$ # greplogs - grep logs for a string. use strict; use warnings; my $html = 0; my $lines = 0; die unless @ARGV; if ($ARGV[0] eq '-html') { shift; $html = 1; } if ($ARGV[0] eq '-l') { shift; $lines = shift; } my $s = shift; die unless defined $s; # if the string to grep for ends with a digit, add a zero-width negative # look-ahead assertion against another digit. e.g., if we are searching for # "wu_12" do not match "wu_125". if ($s =~ /\d$/) { $s .= "(?!\\d)"; } my $prev_file = ''; my $nlines = 0; my @slines = (); sub printline($) { ++$nlines; if ($lines < 0) { # tail - need to store all lines first push(@slines, $_[0]); } else { return if ($lines > 0 && $nlines > $lines) ; print $_[0]; } }; sub finish_printlines() { if ($lines < 0) { if (scalar(@slines) > -$lines) { @slines = @slines[$#slines+$lines+1..$#slines]; } print @slines; } $nlines = 0; @slines = (); } if ($html) { print "
"; }
while () {
    chomp;
    if (/$s/) {
        if ($ARGV ne $prev_file) {
            finish_printlines();
            $prev_file = $ARGV;
            if ($html) {
                print "

$ARGV

";
            } else {
                print "\n\n$ARGV:\n";
            }
            $nlines = 0;
        }
        my $n = sprintf("%05d", $nlines);
                
        if ($html) {
            s%.*debug.*%$&%i;
            s%.*(critical|error).*%$&%i;
            s%$s%$&%g if $s;
            printline "$n  $_\n";
        } else {
            printline "  $n: $_\n";
        }
    }
}
finish_printlines();
if ($html) { print "
"; }