- #!/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.phpxs.com/code/1006401/