代码语言
.
CSharp
.
JS
Java
Asp.Net
C
MSSQL
PHP
Css
PLSQL
Python
Shell
EBS
ASP
Perl
ObjC
VB.Net
VBS
MYSQL
GO
Delphi
AS
DB2
Domino
Rails
ActionScript
Scala
代码分类
文件
系统
字符串
数据库
网络相关
图形/GUI
多媒体
算法
游戏
Jquery
Extjs
Android
HTML5
菜单
网页交互
WinForm
控件
企业应用
安全与加密
脚本/批处理
开放平台
其它
【
Perl
】
Socket 客户端获取服务器时间
作者:
oschina.net
/ 发布于
2011/3/15
/
2046
<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
Copyright © 2004 - 2024 dezai.cn. All Rights Reserved
站长博客
粤ICP备13059550号-3