Help for this page

Select Code to Download


  1. or download this
    $ perl -e '@a=split(/\./, 'first.second.third'); $b=pop(@a); print "B 
    +is: $b\n";'
    B is: firstsecondthird
    $ perl -e '@a=split(/\./, "first.second.third"); $b=pop(@a); print "B 
    +is: $b\n";'
    B is: third