#!/usr/bin/perl
use IO::File;
use IO::Socket;
my $server = shift;
my $fh = IO::Socket::INET->new($server);
my $line = <$fh>;
print $line."\n";
測試結果:
#./lget.pl www.ccu.edu.tw:ftp
220 ProFTPD 1.3.1 Server (ProFTPD Default Installation) [140.123.5.5]
^^ 太easy了..
sclin by 淳
全站熱搜
留言列表