#!/usr/local/bin/perl

@ARGV = ("/var/local/www/syslog") unless @ARGV;

@saveARGV = @ARGV;

while (<>) {
    if (/^(.+) ..:..:.. .+(\[[0-9]+\]:)/) {
	($when,$pid) = ($1,$2);
	if (/ERROR/) {
	    $epid{$pid,$when} = 1;
	}
    } else {
	print "WEIRD LINE: $_";
    }
}

@ARGV = @saveARGV;

while (<>) {
    if (/^(.+) ..:..:.. .+(\[[0-9]+\]:)/) {
	($when,$pid) = ($1,$2);
	if ($epid{$pid,$when}) {print;}
    }
}