Help for this page

Select Code to Download


  1. or download this
    $s = substr($s, 0, rindex($s, '.'));
    
  2. or download this
    $s =~ s/\.[^.]*$//;