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

下面是编程之家 jb51.cc 通过网络收集整理的代码片段。

编程之家小编现在分享给大家，也给大家做个参考。

#!/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,$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";

以上是编程之家(jb51.cc)为你收集整理的全部代码内容，希望文章能够帮你解决所遇到的程序开发问题。

如果觉得编程之家网站内容还不错，欢迎将编程之家网站推荐给程序员好友。