[Roma.pm] FTP su IO SOCKET

LordOfDeath webmaster.staff at gmail.com
Tue Jan 23 13:49:35 PST 2007


Marco Balestra ha scritto:
> On 23/gen/07, at 20:38, LordOfDeath wrote:
>
>> l'unico problema è che non mi stampa il file sull'output.... qualcuno 
>> sa come aiutarmi?
>
> Studiati anche il funzionamento dell'ftp... la porta comandi/controllo 
> è la 20, ma poi i dati viaggiano su una porta diversa (tipicamente 
> ftp-data, 21, ma non è obbligatorio), e per quello dovrai aprire un 
> altro socket.
> -- 
> Marco Balestra
> IT consultant
> balestra at cesmail.net <mailto:balestra at cesmail.net>
>
>
>
> ------------------------------------------------------------------------
>
> _______________________________________________
> Roma mailing list
> Roma at pm.org
> http://mail.pm.org/mailman/listinfo/roma
ah ok, quindi apro un'altra socket in listening in locale oppure di 
connessione remota?(suppongo la prima)
una cosa del genere, va bene ? (teoricamente parlando):

$connessione=IO::Socket::INET->new(
        PeerAddr=>$url,
        PeerPort=>21,
        Proto=>'tcp',
        Timeout=> '10');
       
print $connessione "USER $user\n";
print $connessione "PASS $pass\n";
#print $connessione "SYST\n";
#print $connessione "FEAT\n";
#print $connessione "PWD\n";
print $connessione "TYPE A\n";
#print $connessione "PASV\n";
#print $connessione "LIST\n";
#print $connessione "TYPE I\n";
#print $connessione "TYPE A\n";
#print $connessione "PWD\n";
#print $connessione "REST 0\n";
#print $connessione "LIST\n";
print $connessione "RETR file\n"; #RETR
$connessione2=IO::Socket::INET->new(
        PeerAddr=>localhost,
        PeerPort=>20,
        Proto=>'tcp',
        Timeout=> '10');
        $test=<$connessione2>;
open FILE, "<a.pl";
print FILE $test;
close FILE;
while (<$connessione>){
print $_;
}



close ($connessione);


grazie mille ^_^
ciao!
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.pm.org/pipermail/roma/attachments/20070123/a484d6f6/attachment.html 


More information about the Roma mailing list