Implementing Quick Excludes In Perl
#! /usr/local/bin/perl -w # Routine to ignore “normal” log entries – after Marcus Ranum’s # “artificial ignorance” # while (<>) { if (/.*popper\[.*: connect from /} { next } elsif (/.*sshd\[.*log:.*accepted/} { next } elsif… Read More »Implementing Quick Excludes In Perl