<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
Alessandro Merlani ha scritto:
<blockquote cite="mid200701232007.45437.merlani@libero.it" type="cite">
<pre wrap="">On Tuesday 23 January 2007 19:49, LordOfDeath wrote:
...
</pre>
<blockquote type="cite">
<pre wrap="">non so nemmeno dove cominciare! altrimenti
avrei provato e riprovato e ci sarei arrivato da solo !
</pre>
</blockquote>
<pre wrap=""><!---->
se intendi usare solo IO::Socket devi implementare il protocollo a layer 7;
quindi devi cominciare studiandoti le specifiche del protocollo che vuoi
implementare (se ancora non sai cosa vuoi fare e' inutile metterti a scrivere
codice):
<a class="moz-txt-link-freetext" href="http://www.faqs.org/rfcs/rfc959.html">http://www.faqs.org/rfcs/rfc959.html</a>
</pre>
</blockquote>
Devo dire che ci sono quasi riuscito!!!<br>
ho fatto una socket normale, che puntava su un server ftp, poi ho fatto
questo:<br>
print $connessione "USER $user\n";<br>
print $connessione "PASS $pass\n";<br>
print $connessione "SYST\n";<br>
print $connessione "FEAT\n";<br>
print $connessione "PWD\n";<br>
print $connessione "TYPE A\n";<br>
print $connessione "PASV\n";<br>
print $connessione "LIST\n";<br>
print $connessione "TYPE I\n";<br>
print $connessione "TYPE A\n";<br>
print $connessione "PWD\n";<br>
print $connessione "REST 0\n";<br>
print $connessione "GET file\n"; # o provato anche con RETR<br>
while (<$connessione>){<br>
print $_;<br>
}<br>
l'unico problema è che non mi stampa il file sull'output.... qualcuno
sa come aiutarmi?<br>
grazie in anticipo e scusate per il disturbo, sciau!<br>
</body>
</html>