2012-07-03
测试网页是否开启了gzip或deflate压缩
[root@Nagios ~]# curl -I -H ‘Accept-Encoding: gzip,deflate’ baiqiuyi.com 2>/dev/null|perl -ne ‘print...
[root@Nagios ~]# curl -I -H ‘Accept-Encoding: gzip,deflate’ baiqiuyi.com 2>/dev/null|perl -ne ‘print...
perl生成随机密码 [root@Nagios a]# perl -le ‘print map{(a..z,A..Z,0..9)[rand 64]}0..pop’ 8 jm6sKgVlW
[root@Nagios s]# more pagerank.pl #!/usr/bin/perl -w use strict; use WWW::Google::PageRank; my $u = ...
perl的命令行接受参数,用来检查网站的pr. 用到WWW::Google::PageRank模块,快速小巧! [root@Centos perl]# perl pr.pl baiqiuyi.com ...
我的第一个用于生产环境的perl脚本,虽然不是很优秀,但也迈出了扎实的一步 :) 领导有任务,给一批IP列表,ping每一台机器,如果没有响应就发邮件通知,通知的邮件需要分开,不能通知一个列表,得一封...
近期评论