saving the file uploaded...

PriNet has asked for the wisdom of the Perl Monks concerning the following question:

i hate to be a pain, but, i really thought i had it this time.... having trouble saving the file that was submitted from the previous page (help?....again....)

#!/usr/bin/perl
use strict;
use CGI qw/:standard/;
##############################################################
###                   Variable Definitions                 ###
##############################################################
my($FileHandle) = "";
my($FileStream) = "";
##############################################################
###                Main Program Begins Here                ###
##############################################################
$FileHandle = CGI->new;
$FileStream = $FileHandle('AUT_File');
open (OUTFILE, ">test.jpg");
print OUTFILE $FileStream;
close (OUTFILE);
[download]

Comment on saving the file uploaded... Download Code

Replies are listed 'Best First'.
Re: saving the file uploaded... by Sinister (Friar) on Feb 28, 2002 at 19:32 UTC
question 1: is your form set with ENCTYPE="formdata/multi-part" ? Yes : CGI returns a magic GLOB for you. `$FileHandle = GGI::->new(); $FileStream = $FileHandle->('AUT_file');` [download] gives you an actual GLOB. However, if you do: `print $FileStream,"\n";` [download] you'll notice that is prints the filename. If you do: `print <$FileStream>,"\n";` [download] you'll notice it will print the file-data. No : Fix that - (eg: <form METHOD="POST" ACTION="my_script.cgi" ENCTYPE="formdata/multi-part"> ) and then read part 'Yes' Sinister greetings. "With tying hashes you can do everything God and Larry have forbidden" -- Johan Vromans - YAPC::Europe 2001 perldoc -q $_	[reply] [d/l] [select]
Re: Re: saving the file uploaded... by PriNet (Monk) on Feb 28, 2002 at 20:02 UTC
earthboundmisfit thanx for that one, that fixed my internal server error... and Sinister ?... too cool, it worked ! ( i was using the right encrypt... thanx for noting...)(for a jpg anyway) gonna run with it...thanx guys.... Final Code: #!/usr/bin/perl use strict; use CGI qw/:standard/; ############################################################## ### Variable Definitions ### ############################################################## my($FileHandle) = ""; my($FileStream) = ""; ############################################################## ### Main Program Begins Here ### ############################################################## $FileHandle = CGI::->new(); $FileStream = $FileHandle->param('AUT_File'); open (OUTFILE, ">test.jpg"); print OUTFILE <$FileStream>; close (OUTFILE); [download] hey, i was close... heh thanx again everyone... i been trying this "feature" for my gallery for weeks....lol -gary	[reply] [d/l]
Re: saving the file uploaded... by screamingeagle (Curate) on Feb 28, 2002 at 19:23 UTC
my guess is that since you're initializing the filestream variables as scalars, this might be preventing it from acting as a filehandle...try removing the initializing lines...	[reply]
Re: Re: saving the file uploaded... by chromatic (Archbishop) on Feb 28, 2002 at 19:29 UTC
`my $scalar = ''; $scalar = {}; print ref $scalar, "\n"; $scalar = []; print ref $scalar, "\n"; use IO::File; $scalar = IO::File->new(); print ref $scalar, "\n";` [download] Update: Perl is loosely typed. Assignments tend not to care about the previous contents of the variable. That's all.	[reply] [d/l]
Re: Re: Re: saving the file uploaded... by screamingeagle (Curate) on Feb 28, 2002 at 19:44 UTC
That may be true, however, i had a very similar problem a few months ago, which i fixed by removing the initialization line... hence my post :-)	[reply]
Re: saving the file uploaded... by earthboundmisfit (Chaplain) on Feb 28, 2002 at 19:23 UTC
I'm not too familiar with saving uploaded files, but don't you want: `$FileStream = $FileHandle->param('AUT_File');` [download]	[reply] [d/l]
Re: Re: saving the file uploaded... by chromatic (Archbishop) on Feb 28, 2002 at 19:36 UTC
The `upload()` method is the recommended means to get a filehandle. It was added in version 2.47 (quite a while back). The OP might also want binmode, if his platform warrants it.	[reply] [d/l]


Keep It Simple, Stupid
	PerlMonks