getsockname和getpeername的相關推薦_ChinaUnix論壇
[code] #!c:/perl/bin/perl.exe -w use Net::FTP; use strict; my $server='202.96.64.144'; my $user = 'anonymous'; my $pw = 'anonymous'; my $ftp = Net::FTP->new($server) ; $ftp->login($user,$pw) ; #print "login ok! starting list files on $server....\n"; &...