Perl
Inviato: mar 17 ott 2006, 9:21
Ciao a tutti... ho problemi con una stringa PERL-CGI: ho necessità di effettuare UPLOAD di files binari ma, purtroppo, quando invio il file sul file system trovo le dimensioni dello stesso pari a 0. Ecco il mio script:
#!/usr/bin/perl -w
use CGI;
use CGI::Carp;
use CGI::Carp qw(fatalsToBrowser);
use diagnostics -verbose;
use IO::Socket;
$q = new CGI;
$filename = $q->param("miofile");
$filename =~ s/.*[\/\\](.*)/$1/;
$upload_filehandle = $q->upload("miofile");
$upload_dir = "/usr/local/apache/cgi-bin";
print "Content-Style-Type: text/css\n\n";
print "<title>Multilink Gateway Server - $version</title><HEAD>";
print "<STYLE type=text/css>";
print " H1.aa {border-width: 1; border: solid; text-align: center}";
print "</STYLE>";
open UPLOADFILE, ">$upload_dir/$filename";
binmode (UPLOADFILE);
while ( <$upload_filehandle> )
{
print UPLOADFILE $q->upload("miofile");
}
close UPLOADFILE;
RISULTATO:
-rw-r--r-- 1 root root 0 2006-10-17 08:47 bv.zip
Sono disperato... non riesco a tirarci fuori le gambe!!!
#!/usr/bin/perl -w
use CGI;
use CGI::Carp;
use CGI::Carp qw(fatalsToBrowser);
use diagnostics -verbose;
use IO::Socket;
$q = new CGI;
$filename = $q->param("miofile");
$filename =~ s/.*[\/\\](.*)/$1/;
$upload_filehandle = $q->upload("miofile");
$upload_dir = "/usr/local/apache/cgi-bin";
print "Content-Style-Type: text/css\n\n";
print "<title>Multilink Gateway Server - $version</title><HEAD>";
print "<STYLE type=text/css>";
print " H1.aa {border-width: 1; border: solid; text-align: center}";
print "</STYLE>";
open UPLOADFILE, ">$upload_dir/$filename";
binmode (UPLOADFILE);
while ( <$upload_filehandle> )
{
print UPLOADFILE $q->upload("miofile");
}
close UPLOADFILE;
RISULTATO:
-rw-r--r-- 1 root root 0 2006-10-17 08:47 bv.zip
Sono disperato... non riesco a tirarci fuori le gambe!!!