Help for this page

Select Code to Download


  1. or download this
     
     my @tmp = split(/\//, '/home/bin/scripts/test.pl');
     my $fname = pop @tmp;
  2. or download this
         my $fname = pop split(/\//, '/home/bin/scripts/test.pl');
  3. or download this
    *-*-*-*-*-*
{ firstname => 'Michael',
  quote     => 'Mice were crying and stinging but went on nibbling the
+ cactus', }