Help for this page

Select Code to Download


  1. or download this
    perl -pe 'goto LINE if /^2nd/' myfile
    
  2. or download this
    $ perl -MO=Deparse -pe 'goto LINE if /^2nd/' myfile
    LINE: while (defined($_ = <ARGV>)) {
    ...
    }
    -e syntax OK