Help for this page

Select Code to Download


  1. or download this
    my $quoted    = qr/"  [^"]+   "/x;
    my $bracketed = qr/\[ [^\]]+ \]/x;
    ...
    while (<LOGFILE>) {
      my @logentry = /($quoted|$bracketed|$bare)/g;
    }