Help for this page

Select Code to Download


  1. or download this
        use File::Basename;

    ($name,$path,$suffix) = fileparse($fullname,@suffixlist);
    $name = fileparse($fullname,@suffixlist);
  2. or download this
    $name,$path,$suffix) = fileparse($fullname,qr/\..*/);