Socketverbindung zu einem FTP Server?

[Calocybe]

Hallo!

versuche gerade einen kleinen FTP Client zu basteln, der erstmal nur versuchen soll sich einzuloggen und zurückzugeben ob es geklappt hat.

Eigentlich gibt es ja Net::FTP ... aber vielleicht ist es ja zum Uebungszweck?

Allerdings mag das nicht so klappen, ich bekomme zwar schön die Version des Servers ausgegeben,

An welcher Stelle genau im Programm? "user" sendet man doch erst nachdem man die Version ausgelesen hat, schon um evtl. Fehler festzustellen.

print $socket "user test";

Jede Zeile muss mit CRLF abgeschlossen werden. Also

print $socket "user test\015\012";    oder auch   print $socket "user test\x0D\x0A";
aber *nicht*:  print $socket "user test\r\n";

$antwort = <$socket>;
print $antwort;

print $socket "pass test";

print $socket "pass test\015\012";

$antwort = <$socket>;
print $antwort;

print $socket "quit\015\012";

close($socket);

HTH, Calocybe