Help for this page

Select Code to Download


  1. or download this
    $ perl -E'say scalar( split( /\./, q{.}, -1 ));'
2
$ perl -E'say scalar( split( q{.}, q{.}, -1 ));'
2
  2. or download this
    $ perl -MData::Dump -e 'dd split( /\./, q{.x.} )'
("", "x")
...
("", "x", "")
$ perl -MData::Dump -e 'dd split( q{.}, q{.x.}, -1 )'
("", "", "", "")