[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