Help for this page

Select Code to Download


  1. or download this
    $count = () = split ' ', $_, undef;
  2. or download this
    $ perl -MO=Deparse -e '$a = () = split(" ", $_, undef)'
$a = () = split(" ", $_, undef);
...
$ perl -MO=Deparse -e '$a = () = split(" ", $_, 0)'
$a = () = split(" ", $_, 1);
  3. or download this
    $count = () = split ' ', $_, '0e0';
  4. or download this
    $ perl -MO=Deparse -e '$a = () = split(" ", $_, "0e0")'
$a = () = split(" ", $_, '0e0');