你的分享就是我们的动力 ---﹥

Perl Socket 客户端获取服务器时间

时间:2013-05-30 00:11来源:www.chengxuyuans.com 点击:

Perl Socket 客户端获取服务器时间代码

#!/usr/local/bin/perl -Tw
require 5.6.0;
use Socket;
use FileHandle;
use strict;
my($remote, $port, @thataddr, $that,$them, $proto,@now,$hertime);

print "client\n";
$remote = shift || 'localhost' ;
$port = 99999 ;  # timeserver is at this port number
@thataddr=gethostbyname($remote);

$that = pack('Sna4x8', AF_INET, $port, $thataddr[4]);

$proto = getprotobyname('tcp');
if ( socket(SOCK, PF_INET, SOCK_STREAM, $proto ) ){
     print "Socket ok.\n";
}
else { 
     die $!; 
}
if (connect(SOCK, $that)) {
     print "Connect ok.\n";
}
else {
     die $!;
}
SOCK->autoflush;
$hertime = <SOCK>;
close(SOCK);
print "Server machine time is: $hertime\n";
@now = localtime($hertime);
print "\tTime-$now[2]:$now[1] ","Date-",$now[4]+1,"/$now[3]/$now[5]\n";

转载注明地址:http://www.chengxuyuans.com/Perl/63125.html