in reply to Re: How to use -0 (zero) option in perl
in thread How to use -0 (zero) option in perl
$ perl -MO=Deparse,-p -0777 -e print BEGIN { $/ = undef; $\ = undef; } print($_); -e syntax OK $ perl -MO=Deparse,-p -0777 -pe print BEGIN { $/ = undef; $\ = undef; } LINE: while (defined(($_ = <ARGV>))) { print($_); } continue { (print($_) or die("-p destination: $!\n")); } -e syntax OK $ perl -MO=Deparse,-p -0777 -ne print BEGIN { $/ = undef; $\ = undef; } LINE: while (defined(($_ = <ARGV>))) { print($_); } -e syntax OK
|
|---|