最近因需要，需要对ip归属地址进行分析，经过晚上查询发现淘宝的地址库是最全的，而且发现他们提供一个json接口。
git下载地址
http://git.oschina.net/ijz/ipwhere
故写了一个借口调用接口进行查询。代码保存为ipwhere.pl，然后执行：
./ipwhere.pl 8.8.8.8 8.8.8.6
需要安装 LWP::Simple 和JSON 库。（cpan安装。）
ip归属地查询（调用淘宝地址库接口）
发表评论
标签归档：perl
perl版本屏蔽ssh恶意扫描ip的脚本
上一篇文章讲了屏蔽ssh恶意扫描ip的脚本，主要里利用shell和perl-oneline代码，后来又写了一个纯perl版本的，一并发上了。 继续阅读
Perl常用特殊符号变量
@ 数组
$x{} x名字前面是美元符号($),后面是花括号({}),则其为 hash 元素
% 要引用整个 hash,使用百分号(“ )作为前缀。前面几页中使用的 hash 的名字为%family_name。
$! 根据上下文内容返回错误号或者是系统产生的一些可读的信息;
继续阅读
perl one-liners explained 中文版 （七）正则表达式
perl one-liners explained，是继《Famous Awk One-Liners Explained》和《Famous Sed One-Liners Explained》，后Peteris Krumin推出的又一个系列文章，并已经出书了。本blog会陆续对其进行翻译成中文，以便大家学习。本篇是第六部分——正则表达式
原文地址：http://www.catonmat.net/download/perl1line.txt
原书blog地址：http://www.catonmat.net/blog/perl-book/
Perl内置特殊变量
一、正则表达式特殊变量：
1、$n :包含上次模式匹配的第n个子串
2、$& :前一次成功模式匹配的字符串
3、$ :前次匹配成功的子串之前的内容
4、$’ :前次匹配成功的子串之后的内容
5、$+ :前一次使用括号的模式匹配的字符串.
/zz/perl中的q,qq,qw,qr,qx
perl one-liners explained 中文版 （六）有选择的打印或者删除行
perl one-liners explained，是继《Famous Awk One-Liners Explained》和《Famous Sed One-Liners Explained》，后Peteris Krumin推出的又一个系列文章，并已经出书了。本blog会陆续对其进行翻译成中文，以便大家学习。本篇是第六部分——有选择的打印或者删除行
原文地址：http://www.catonmat.net/download/perl1line.txt
原书blog地址：http://www.catonmat.net/blog/perl-book
perl one-liners explained 中文版 （五）文本转化和替换
perl one-liners explained，是继《Famous Awk One-Liners Explained》和《Famous Sed One-Liners Explained》，后Peteris Krumin推出的又一个系列文章，并已经出书了。本blog会陆续对其进行翻译成中文，以便大家学习。本篇是第五部分——文本转化和替换
原文地址：http://www.catonmat.net/download/perl1line.txt
原书blog地址：http://www.catonmat.net/blog/perl-book/
perl one-liners explained 中文版 （四）字符和数组生成
perl one-liners explained，是继《Famous Awk One-Liners Explained》和《Famous Sed One-Liners Explained》，后Peteris Krumin推出的又一个系列文章，并已经出书了。本blog会陆续对其进行翻译成中文，以便大家学习。本篇是第四部分——数组和字符生成
原文地址：http://www.catonmat.net/download/perl1line.txt
原书blog地址：http://www.catonmat.net/blog/perl-book/
perl one-liners explained 中文版 （三）数值计算
perl one-liners explained，是继《Famous Awk One-Liners Explained》和《Famous Sed One-Liners Explained》，后Peteris Krumin推出的又一个系列文章，并已经出书了。本blog会陆续对其进行翻译成中文，以便大家学习。本篇是第三部分——数值计算
原文地址：http://www.catonmat.net/download/perl1line.txt
原书blog地址：http://www.catonmat.net/blog/perl-book/