Help for this page

Select Code to Download


  1. or download this
    while (<$RLOG>) {
        if (/(^Log Entry\s\d+:.*)/) {
    ...
    for (@ary) {
       print $PLOG, $_;
    }
    
  2. or download this
     while(<$PLOG>) {
        ++$alert3orMoreCount if /^Alert Level\s0*(?:[3-9]|\d{2,})/i;
        $pos = $. if /^Alert Level\s0*(?:[3-9]|\d{2,})/i;
    }
    
  3. or download this
     splice( @ary, $pos, 0, $RTF{ctbl}, $RTF{red}, $RTF{ered} );
  4. or download this
    __DATA__
    
    ...
    0x204D4E79AA0200B0 FFFF027000120300
    
    ==========================================