Perl 校验命中的脚本

这个脚本无比的重要，虽然代码简单，但是在判断是否准确上，有着很重要的地位。

通过icmp和解析，它有一定意义所在。

mark!..

#!/usr/bin/perl
use Net::Ping;
sub icmp_domain{$k='true';local($host)=shift;$p=Net::Ping->new("icmp");
#@url=<>;$k='false' unless $p->ping($host,1);
#if($p->ping($host,1)){
#     print "yes\n";
#}else{
#     print "No\n";
#}return $k;$p->close();
}
sub domain_ip{local($host)=shift;$p=Net::Ping->new();$p->hires();($ret,undef,$ip) = $p->ping($host, 1);$p->close();return $ip;
}
$ip=domain_ip('163.com');
print $ip;
$icmp=icmp_domain('waieufh290.com');
print $icmp;

转载于:https://www.cnblogs.com/xiaoCon/archive/2013/04/11/3013834.html

Perl 校验命中的脚本相关推荐

使用Perl编写协议分析脚本 z
使用Perl编写协议分析脚本创建时间:2005-07-31 更新时间:2005-08-07 文章属性:原创文章提交:r00t (i_am_jojo_at_msn.com) 1.软件环境:Windo ...
使用Perl编写协议分析脚本
使用Perl编写协议分析脚本创建时间:2005-07-31 更新时间:2005-08-07 文章属性:转载文章提交:r00t (i_am_jojo_at_msn.com) 1.软件环境:Windo ...
(转载)使用Perl编写协议分析脚本
使用Perl编写协议分析脚本创建时间:2005-07-31 更新时间:2005-08-07 文章属性:原创文章提交:r00t (i_am_jojo_at_msn.com) 1.软件环境:Windo ...
Perl Redis 连接测试脚本,获取list长度
Redis连接测试脚本 1.部署环境 OS: Windows 7 简体中文旗舰版 X64 SP1 Perl: ActivePerl-5.16.2.1602-MSWin32-x86-296513. ...
脱机下载至校验成功的脚本
今天又差点在 root 权限下破坏了系统 (归功于破坏力极强的 build-sysroot.sh), 心想逐步把写过的一些小工具备份. sureget #!/bin/sh if [ -z $2 ]; ...
脚本语言语言脚本语言:Shell , JavaScript、VBScript、Perl、PHP、Python、Ruby、Lua
今天一直在研究脚本语言语言之类的问题,上午正好有机会和大家共享一下. 脚本语言:Shell , JavaScript.VBScript.Perl.PHP.Python.Ruby.Lua 工作控制语言和 ...
html脚本语言有哪些,常见的脚本语言(有哪些)
常见的脚本语言脚本言语:脚本言语又被称为扩建的言语,或者动态言语,是一种编程言语,用bai来操控软件应用程序,脚本通常以文本(如ASCII)保存,只在被调用时进行解说或编译. 言语分类: Shell ...
linux下perl命令行参数,Perl One-Liners | Perl命令行学习1 -e参数
注:本内容需要点的perl编程基础,最好是读过<perl语言入门>. 本系列是自己平常学习工作中的总结,每一个实例均为我为了讲解而设置的,自己试过的,如有错误,望能见谅 Perl 命令行参 ...
bash特性以及shell脚本简介
bash的特性之多命令执行的逻辑关系: 1.命令替换 COMMAND1 $(COMMAND2) 2.管道 COMMAND1 | COMMAND2 | COMMAND3 ... 3.顺序执行结构 COM ...

Perl 校验命中的脚本

Perl 校验命中的脚本相关推荐

最新文章

热门文章