Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict ;
...

# Can I alter where the file is temporally written here?
my $tmp_file = $cgi->tmpFileName( $file_name );
  2. or download this
     warn qq{rename ("$tmp_file", "temp/$file_renamed");\n};
 if (!rename("$tmp_file", "temp/$file_renamed" )) {
...

# Error:
#Cannot open Local file doc1.txt: No such file or directory
  3. or download this
     rename ("", doc1.txt");
  4. or download this
    ...
#my $put_file = $ftp->put("$file_renamed") or die "Cannot put file ", 
+$ftp->message;
...
Error : Cannot put file The system cannot find the file specified.