Help for this page

Select Code to Download


  1. or download this
        while(<LOG>){
        next unless /$date/ .. eof(LOG);
        print LOGFILE;
    }
  2. or download this
        my @input = <LOG>;
    foreach (@input) {
        next unless /$date/ .. undef;
        print LOGFILE;
    }
  3. or download this
        my @input = <LOG>;
    {
...
            print LOGFILE if $found;
        }
    }