Re: Need help with CGI::Upload

I normally use the following.
It works for me pretty well for me.

use CGI;
$cgi=new CGI;

$file=$cgi->param('file_field');

$newName=&FileUpload($file);

sub FileUpload{
        my $FileName=shift @_;
        my $tmpdir ="/your/path";
        my $bufferSize=4096;
        my $limit=10000000;#File Size Limit
        my ($debug, $FILE, $file, $size, $tmppath, $line, $buffer);
        $size = 0;
        if (length($FileName) != 0){
                $| = 1;
                $FILE = $FileName;
                ($file = $FILE) =~ s/^.*?([^\\\/]+)$/$1/;
                $tmppath = "$tmpdir\\$file";
                open (OUT, ">$tmppath") or print "Error opening $tmppa
+th: $!<br>\n";
                binmode OUT;
                while(($line = read ($FileName, $buffer, $bufferSize))
+ && ($size < $limit)){
                        print OUT $buffer;
                        $size += $line;
                        if ($size > $limit){
                                $err_flag = 1;
                        }
                }

                close OUT;
                $| = 0;
                $FileName = $file;
        }
        else{##Empty File
                $FileName = "";
        }       

        #Upload Error
        if ($err_flag == 1){
                unlink ($tmppath);
                $FileName = "";
        }
        $FileName;
}
[download]

Tom

Comment on Re: Need help with CGI::Upload Download Code

Replies are listed 'Best First'.

(jeffa) 2Re: Need help with CGI::Upload
by jeffa (Bishop) on Jul 29, 2003 at 14:26 UTC

Since you have already loaded CGI.pm ... why not use CGI::upload ... it's a whole lot easier. Here is a short example that you can modify (add error checking, etc.).

#!/usr/bin/perl -T

use strict;
use HTML::Entities;
use CGI qw(:standard);

print header,
   start_multipart_form,
   filefield('file'),
   submit('go'),
   end_form,
;

if (param('go')) {
   my $fh = upload('file');
   print hr, pre( map { encode_entities $_ } <$fh>);
}
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

[reply]
[d/l]


There's more than one way to do things
	PerlMonks