Re: How to use -0 (zero) option in perl

Start with perlintro

$ perl -MO=Deparse,-p  -0777 -e 'print'
BEGIN { $/ = undef; $\ = undef; }
'???';
-e syntax OK

$ perl -MO=Deparse,-p  -0777 -pe 'print'
BEGIN { $/ = undef; $\ = undef; }
LINE: while (defined(($_ = <ARGV>))) {
    '???';
}
continue {
    print($_);
}
-e syntax OK

$ perl -MO=Deparse,-p  -0777 -ne 'print'
BEGIN { $/ = undef; $\ = undef; }
LINE: while (defined(($_ = <ARGV>))) {
    '???';
}
-e syntax OK
[download]

Comment on Re: How to use -0 (zero) option in perl Download Code

Replies are listed 'Best First'.
Re^2: How to use -0 (zero) option in perl by Anonymous Monk on Jul 07, 2009 at 12:47 UTC
You goofed your quotes on windows :) `$ 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` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: How to use -0 (zero) option in perl
by Anonymous Monk on Jul 07, 2009 at 12:47 UTC

$  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
[download]

[reply]
[d/l]