Help for this page

Select Code to Download


  1. or download this
    $ext="i_am_the_walrus.txt";
$ext=~s/^[^.]*(\.[\w]+$)/$1/;
print $ext;
  2. or download this
    use strict;
my $filename="you_are_the_whale.doc";
...
  print $ext;
} else {
  print "No extensions in the zoo.\n"; }
  3. or download this
    use strict;
use File::Basename;
my $filename="we_are_not_all_mammals.zoo";
my ($base, $directory, $ext)=fileparse($filename, '\.[\w]+$');
print $ext;