Help for this page

Select Code to Download


  1. or download this
    use CGI;
use File::Basename;
...

# $filename set to hello.gif
my $filename = basename($file);
  2. or download this
    use CGI;
use File::Basename;
...

# $filename set to hello.gif
my $filename = basename($file);
  3. or download this
    fileparse_set_fstype('MSDOS') if $name =~ /\\/;