Re: File source from memory

First, beware that different browsers send file name differently, if you expect to use that file name. IE sends full file path while Opera sends just the basename of file. And if you want your file saved on host use something like

my $file_name = CGI::param('file_field');
$file_name =~ s:^.*[\\/](.*)$:$1:;  # remove path if present
my $fh = CGI::upload('file_field');
if ( $fh ) {
  open(OUT, '>', "/dir/to/save/$file_name");
  while (<$fh>) { print OUT $_; }
  close OUT;
} else {
  # handle the error
}
[download]

If you don't need the file name you may don't bother about it's correctness and just read from filehandle (which is $fh - the value that CGI::upload gives you) and send file data to whatever destination you need.

Comment on Re: File source from memory Download Code

Replies are listed 'Best First'.
Re^2: File source from memory by Anonymous Monk on Feb 18, 2005 at 19:16 UTC
Thanks for your help, I do know I have to strip the file name but I do NOT want to save the file to my server. I want to read the data from the file directly and write it to the database. How can I do this without first saving the file?	[reply]
Re^3: File source from memory by zentara (Archbishop) on Feb 19, 2005 at 13:27 UTC
Notice the scalar reference when using this technique. `#!/usr/bin/perl #Do you want to use a perl variable as if it were a file? #Previous versions of perl had IO::Stringy and IO::Scalar for that. #Perl 5.8 with PerlIO has it natively. Just use a reference to #the scalar in the filename slot of open. my $foo = ''; open FILEHANDLE, '+>', \$foo or die $!; my $count = 0; for(1..100){ print FILEHANDLE $count; # print "$foo\n"; # select(undef,undef,undef,.1); $count++; } close FILEHANDLE or die $!; print "###########################\n"; print "$foo\n";` [download] I'm not really a human, but I play one on earth. flash japh	[reply] [d/l]


Perl Monk, Perl Meditation
	PerlMonks