Perl生成纯HTML代码二维码实例
需要依次安装 qrencode、Text-QRCode、HTML-QRCode
#!/usr/bin/perl
use HTML::QRCode;
my $text = 'http://gimoo.net/';
my $qrcode = HTML::QRCode->new->plot($text);
print <<"HTML";
<html>
<head></head>
<body>
$qrcode
</body>
</html>
HTML
生成的二维码是纯HTML代码,效果如:
Perl脚本检测一个域名是否有效
脚本功能:通过ICMPPing或TCP/SYN探测指定的域名,探测前检测域名是否有效。file:check.host.pl#!/usr/bin/perlusestrict;useNet::Ping;useNet::DNS;useTime::HiResqw();$|=1;my$DEFAUL
Perl集群配置管理系统Rex简明手册
Rex是Perl编写的基于SSH链接的集群配置管理系统,语法上类似PuppetDSL。官网中文版见http://rex.perl-china.com。本文仅为本人在部门Wiki上编写的简介性文档。
perl查找进程PID的例子
主要是利用查找/proc目录下的相关文件进行查找.#!/usr/bin/perlusestrict;usewarnings;#usage:process_grep.plProcessNameexit(main(@ARGV));submain{my$Phash;my$ProcessName=shift;my$PROC_DIR
编辑:568数据
标签:域名,集群,脚本,配置管理,系统