Help for this page

Select Code to Download


  1. or download this
    $ perl5.00404 -e '$/=\1; print "[$_]" while <>;'
abcd
...
[abcd
0000
]$
  2. or download this
    $ perl5.00404 -we'$/="0"; print $l while ($l = <>)'
Value of <HANDLE> construct can be "0"; test with defined() at -e line
+ 1.
foo000bar
foo0$