Help for this page

Select Code to Download


  1. or download this
    perl -ne 'if ( $flag ) { $flag++; $flag %= 3; } if ( m/error/ ) 
{ $flag = 1; } print $., q{: }, $_ if ( $flag );' <filename>
  2. or download this
    $ perl -ne 'if ( $flag ) { $flag++; $flag %= 3; } 
if (m/\$line/) { $flag = 1; }; 
...
19:     if ( substr( $line, 3, 8 ) eq q{ACCOUNTA} ) {
20:         print $/, $line, qq{\n};
21:     }