Help for this page

Select Code to Download


  1. or download this
        $ perl -MO=Deparse  -pe '$_=$'

    LINE: while (defined($_ = <ARGV>)) {
...
    continue {
        die "-p destination: $!\n" unless print $_;
    }
  2. or download this
        perl -pe '$.-32or$_=$' file | cat -A
  3. or download this
        $ perl -MO=Deparse  -pe '$_=$.'

    LINE: while (defined($_ = <ARGV>)) {
...
    continue {
        die "-p destination: $!\n" unless print $_;
    }