I am trying to store a file in the temp directory.
It creates the desired file, but with size 0.
The files are videos sent via CGI. I tried with the upload function,
but it did not work too.
Would you please give me some direction about what I am doing wrong or
what should I do in order to make it work?
Thank you.
# Load system modules (strict disabled in order to prevent conflict)
use CGI;
# use strict;
# Create CGI
my $cgi_this = new CGI;
my $file_file = $cgi_this->param('sbvideo_file') || 0;
# retrieve original name and change it
if ($file_file =~ /(.+)\.(\w+)$/)
{ ($str_filename,$str_fileext) = ($1,$2); }
$str_filename = $$ . '.'. $str_fileext;
# this line does not work, sends error on hash content type key
# $str_filetype = $cgi_this->uploadInfo($file_file)->{'Content-Type'};
# store file (that does not work)
if (open (hFILE, ">~/tmp/$str_filename"))
{
binmode hFILE;
while (<$file_file>)
{ print hFILE $_; }
close (hFILE);
}
# store file 2nd option (and this one neither)
if (open (hFILE, ">~/tmp/$str_filename"))
{
binmode hFILE;
while (read($file_file,$str_buffer,1024))
{ print hFILE $str_buffer; }
close (hFILE);
}
Atentamente,
J. Alejandro Ceballos Z.
w: http://alejandro.ceballos.info
e: bu...@alejandro.ceballos.info
m: +52 (33) 1411.6079
--
To unsubscribe, e-mail: beginners-cgi-unsubscr...@perl.org
For additional commands, e-mail: beginners-cgi-h...@perl.org
http://learn.perl.org/
