Help for this page

Select Code to Download


  1. or download this
    $filename = $sourcepath = $query->upload($file);
$filename =~ /([\w. -]+)$/i;
$filename = $1;
$filename =~ s/ /_/g;
  2. or download this
    binmode($filename);
binmode(OUTPUT);
  3. or download this
    while( read($sourcepath, $buffer, 64*2**10) ) {
   print OUTPUT $buffer;
}
  4. or download this
    my $upload_filehandle = $query->upload("filename");
open UPLOADFILE, ">$upload_dir/$filename";