Re: Why doesn't this work?

try $/="\0"

unquoted \0 is a reference to a literal number (i.e. read-only scalar) ...

  DB<135> $/=\0
 => \0

  DB<136> ref $/
 => "SCALAR"

  DB<137> ${$/}
 => 0
[download]

... and not the escape sequence for NUL byte!

  DB<146> $/="\0"
 => "\0"

  DB<147> ord $/
 => 0
[download]

Cheers Rolf

( addicted to the Perl Programming Language)

Comment on Re: Why doesn't this work? Select or Download Code

Replies are listed 'Best First'.
Re^2: Why doesn't this work? by perl-diddler (Chaplain) on Apr 12, 2013 at 21:57 UTC
Bingo. That was it! doh! <palmslaps self>	[reply]
Re^3: Why doesn't this work? by LanX (Saint) on Apr 12, 2013 at 22:35 UTC
maybe shorter? `DB<178> open $fh,"<",\"1\0 2\0 3" DB<179> print scalar do {local $/="\0"; () = <$fh> } 3` [download] update as one liner `perl -e '$/="\0"; print $a=()=<>'` [download] Cheers Rolf ( addicted to the Perl Programming Language)	[reply] [d/l] [select]
Re^4: Why doesn't this work? by choroba (Cardinal) on Apr 12, 2013 at 22:39 UTC
Even shorter: `{local $/="\0"; () = <$fh>; print $.}` [download] لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l]