Help for this page

Select Code to Download


  1. or download this
       if (/^LOGGING: \S+?-(\S+) \S+: (\S+) [^:]*: (\S+)$/) {
     my ($month, $what, $user) = ($1, $2, $3) ;
...
     chomp ;
     print STDERR "Line $.: '$_' ??\n" ; 
   } ;
  2. or download this
      ....
  LOGGING: 31-Mar-2008 23:59:10: ENDING ON A HIGH: countryjoe
  LOGGING:  1-Apr-2008 00:01:22: STARTING FLUSH: gotcha
  ....