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!!!
Perl
Moderatore: Staff
Regole del forum
1) Citare sempre la versione di Slackware usata, la versione del Kernel e magari anche la versione della libreria coinvolta. Questi dati aiutano le persone che possono rispondere.
2) Per evitare confusione prego inserire in questo forum solo topic che riguardano appunto Gnu/Linux in genere, se l'argomento è specifico alla Slackware usate uno dei forum Slackware o Slackware64.
3) Leggere attentamente le risposte ricevute
4) Scrivere i messaggi con il colore di default, evitare altri colori.
5) Scrivere in Italiano o in Inglese, se possibile grammaticalmente corretto, evitate stili di scrittura poco chiari, quindi nessuna abbreviazione tipo telegramma o scrittura stile SMS o CHAT.
6) Appena registrati è consigliato presentarsi nel forum dedicato.
La non osservanza delle regole porta a provvedimenti di vari tipo da parte dello staff, in particolare la non osservanza della regola 5 porta alla cancellazione del post e alla segnalazione dell'utente. In caso di recidività l'utente rischia il ban temporaneo.
1) Citare sempre la versione di Slackware usata, la versione del Kernel e magari anche la versione della libreria coinvolta. Questi dati aiutano le persone che possono rispondere.
2) Per evitare confusione prego inserire in questo forum solo topic che riguardano appunto Gnu/Linux in genere, se l'argomento è specifico alla Slackware usate uno dei forum Slackware o Slackware64.
3) Leggere attentamente le risposte ricevute
4) Scrivere i messaggi con il colore di default, evitare altri colori.
5) Scrivere in Italiano o in Inglese, se possibile grammaticalmente corretto, evitate stili di scrittura poco chiari, quindi nessuna abbreviazione tipo telegramma o scrittura stile SMS o CHAT.
6) Appena registrati è consigliato presentarsi nel forum dedicato.
La non osservanza delle regole porta a provvedimenti di vari tipo da parte dello staff, in particolare la non osservanza della regola 5 porta alla cancellazione del post e alla segnalazione dell'utente. In caso di recidività l'utente rischia il ban temporaneo.