Help for this page

Select Code to Download


  1. or download this
    % perl5.6.1 -MO=Deparse  -pe '$_=$.'
   LINE: while (defined($_ = <ARGV>)) {
...
   continue {
       die "-p destination: $!\n" unless print $_;
   }
  2. or download this
    % perl5.00503 -MO=Deparse  -pe '$_=$.'
   LINE: while (defined($_ = <ARGV>)) {
...
   continue {
       die "-p destination: $!\n" unless print $_;
   }