Socket 客户端获取服务器时间代码,Perl代码库,德仔网

代码语言

代码分类

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

作者:oschina.net / 发布于2011/3/15/ 2097

<div>!/usr/local/bin/perl -Tw
require 5.6.0;
use Socket;
use FileHandle;
use strict;
my($remote, $port, @thataddr, $that,$them, $proto,@now,$hertime);</div>
<div>print "client\n";
$remote = shift || 'localhost' ;
$port = 99999 ; # timeserver is at this port number
@thataddr=gethostbyname($remote);</div>
<div>$that = pack('Sna4x8', AF_INET, $port, $thataddr[4]);</div>
<div>$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";</div>

试试其它关键字

同语言下

.获取本机所有IP和设备的绑定情况
.生成隨機密碼
.取文件的最后修改时间
.获取本机所有IP和设备的绑定情况
.将perl脚本变成乱糟糟的一团
.从 HTML网页中解析出链接
.使用 HTTP::Request 请求 URL 并将响应保存到文件
.使用指定的User-Agent抓取网页
.使用 Net::SMTP发送邮件
.编写的一个简单 Web服务器

可能有用的

.获取本机所有IP和设备的绑定情况
.生成隨機密碼
.取文件的最后修改时间
.获取本机所有IP和设备的绑定情况
.将perl脚本变成乱糟糟的一团
.从 HTML网页中解析出链接
.使用 HTTP::Request 请求 URL 并将响应保存到文件
.使用指定的User-Agent抓取网页
.使用 Net::SMTP发送邮件
.编写的一个简单 Web服务器

oschina.net贡献的其它代码(12)

.MySQL数据库每日自动备份的脚本
.在VIM中使用GOOGLE进行搜索或者翻译
.快速多线程ping
.通过 ODBC 连接数据库并创建表
.创建一个新的 ODBC 数据源
.列举所有的 ODBC 驱动程序
.获取 Windows 系统的版本
.对存储过程表的列及值添加标记，方便修改
.Socket 客户端获取服务器时间
.Perl 解析 HTTP Header