Help for this page

Select Code to Download


  1. or download this
    my $element = "sample/fresh/fresh/0/pineapple";
$word = (split (/\//, $element))[-1];
print $word; #pineapple
  2. or download this
    my $element = "sample/fresh/fresh/0/pineapple";
$word = ( $element =~ /([^\/]+)(?:\/)?/g )[-1];
print $word; #pineapple