Help for this page

Select Code to Download


  1. or download this
    if(open FILE, ">c:\\temp\\$filename") {
...
  2. or download this
    use File::Basename;
my $full_path = $request->upload($filename);
my $filename  = fileparse($full_path);
  3. or download this
    my $filename  = fileparse($full_path);
die "couldn't parse the file name" unless $filename;