<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
<title></title>
</head>
<body bgcolor="#ffffff" text="#000000">
Marco Balestra ha scritto:
<blockquote cite="mid413F11D1-DB9D-451C-A1A0-BA8271FB65A4@cesmail.net"
type="cite">
<div>
<div>On 23/gen/07, at 20:38, LordOfDeath wrote:</div>
<br class="Apple-interchange-newline">
<blockquote type="cite"><span class="Apple-style-span"
style="border-collapse: separate; border-spacing: 0px; color: rgb(0, 0, 0); font-family: Verdana; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-indent: 0px; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px;">l'unico
problema è che non mi stampa il file sull'output.... qualcuno sa come
aiutarmi?<br>
</span></blockquote>
</div>
<div><br class="khtml-block-placeholder">
</div>
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.<br>
<div> <span class="Apple-style-span"
style="border-collapse: separate; border-spacing: 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-indent: 0px; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px;"><span
class="Apple-style-span"
style="border-collapse: separate; border-spacing: 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-indent: 0px; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px;">
<div>-- </div>
<div>Marco Balestra</div>
<div>IT consultant</div>
<div><a href="mailto:balestra@cesmail.net">balestra@cesmail.net</a></div>
<div><br class="khtml-block-placeholder">
</div>
<br class="Apple-interchange-newline">
</span></span> </div>
<br>
<pre wrap="">
<hr size="4" width="90%">
_______________________________________________
Roma mailing list
<a class="moz-txt-link-abbreviated" href="mailto:Roma@pm.org">Roma@pm.org</a>
<a class="moz-txt-link-freetext" href="http://mail.pm.org/mailman/listinfo/roma">http://mail.pm.org/mailman/listinfo/roma</a></pre>
</blockquote>
ah ok, quindi apro un'altra socket in listening in locale oppure di
connessione remota?(suppongo la prima)<br>
una cosa del genere, va bene ? (teoricamente parlando):<br>
<br>
$connessione=IO::Socket::INET->new( <br>
PeerAddr=>$url,<br>
PeerPort=>21,<br>
Proto=>'tcp',<br>
Timeout=> '10');<br>
<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 "LIST\n";<br>
print $connessione "RETR file\n"; #RETR<br>
$connessione2=IO::Socket::INET->new( <br>
PeerAddr=>localhost,<br>
PeerPort=>20,<br>
Proto=>'tcp',<br>
Timeout=> '10');<br>
$test=<$connessione2>;<br>
open FILE, "<a.pl";<br>
print FILE $test;<br>
close FILE;<br>
while (<$connessione>){<br>
print $_;<br>
}<br>
<br>
<br>
<br>
close ($connessione);<br>
<br>
<br>
grazie mille ^_^<br>
ciao!<br>
</body>
</html>