Help for this page

Select Code to Download


  1. or download this
        $extension = (split(/\\/,(split(/\./,$filename))[-1]))[0];
        print "$extension\n";
    
  2. or download this
        ($extension) = map{ split /\\/,$_,2 } (split(/\./,$filename))[-1];
        print "$extension\n";