perl实现whois查询

中国红啊

学习一下LWP，很强的东西
简单写一个whois，是用来通过IP地址来查询该IP上有多少域名
其实就是利用 whois.webhosting.info 站点返回页面进行罗列而已
当查询结果出现多个页面的时候，也做了处理，简单，很简单的东西：

#!/usr/bin/perl -w

# get the web site by ip address

use LWP::Simple;

my $arg = scalar @ARGV;
if ($arg != 1) {
        print "   Get the web site by ip address\n";
        print "   by python\@nsfocus.com\n";
        print "   Usage :\n";
        print "   perl $0 <IP>\n";
        exit 0;
}

my $ip = $ARGV[0];
my $url = "http://whois.webhosting.info/$ip";
my $i = 1;
get_url($url);

sub get_url{
        my $url = $_[0];
        my @web = split /<\/td>/,get($url);
        get_web_site(@web);
}

sub get_web_site{
        my $w;
        @web = @_;
        foreach $w (@web) {
                if ($w =~ /<td><a href=\"http:\/\/whois.webhosting.info\/(.*).\">.*<\/a>/) {
                        my $web = $1;
                        print $i,"\t=>\twwww.",$web,"\n";
                        $i++;
                }
                elsif ($w =~ /Next&nbsp;&gt;&gt;<\/a>/){
                        print "Get the next page, Please wait ...\n";
                        the_next_page($w);
                }
        }
}

sub the_next_page{
        my $shift = $_[0];
        $shift =~ /pi=(\d)&ob=SLD&oo=ASC\">Next&nbsp;&gt;&gt;<\/a>/;
        my $n = $1;
        my $url = "http://whois.webhosting.info/$ip?pi=$n&ob=SLD&oo=ASC";
        get_url($url);
}

羽泠

本文转载于 886魔兽[url=http://www.52wpe.net]私服[/url] 子弹魔兽[url=http://www.52wpe.net]私服[/url]



图中男子为兽兽男友（摄影师，已分手），但并非视频男主角。视频男主角以及传播视频的是兽兽07年所交的前任男友。
经历——
　　2005年“**内衣模特大赛”总决赛亚军，时尚魅力奖
　　2006年“丝绸之路国际模特大赛”**赛区总决赛季军，十佳模特
　　2006年“中韩超模大赛晋级赛”入围
　　2006年 **内衣模特大赛亚军
　　2008(第十届)北京国际汽车展览会“兆牌杯”汽车模特大赛亚军，而2008年北京车展是她第一次参加的大型国际车展
　　事件男主角：“没起子”杨迪
　　毕业于北京电影学院，专业摄影师。“兽兽”真正的由来就是“没起子”给她起的一个小名，全名是碧水金晶兽。
模特圈爆出2010年第一个“艳照门”事件，女主角竟然是来自超级模特兽兽！视频男主角以及传播视频的是兽兽07年所交的前任男友。　　　“兽兽”原名为翟凌，生于1987年8月，身高177cm，号称“**第一女车模”。北京新丝路模特公司模特，因为其靓丽的外形和高挑的高材获关注，在各大车展中赢得了好评。　　在2008北京车展上，昵称为“兽兽”漂亮女孩以其清新的气质和魔鬼般的身材被广大网友誉为“第一车模”。
对于兽兽门照片下载 兽兽门纳米盘 视频下载地址 ，我相信很多朋友已经获得3段视频，也有很多朋友没有获得这3段视频但有极具希望可以找到这三段视频。但是事实上我觉得找不到的朋友就不要再找了，从陈冠希艳照门以来，国内大大小小艳照门事件不断，其实这反映了一个现实：封闭的性社会与人们对性的渴望之间的矛盾。这是最根本的本质上矛盾，此外对于明星名人美女我知道很多人也觉得不看枉此生。兽兽门照片下载 兽兽门纳米盘 视频下载地址 作为受害者的兽兽，我们应该尊重她，维护她，而不是侵犯她。有人说，兽兽门照片下载 兽兽门纳米盘 视频下载地址 的爆出是兽兽本人活该的，据说这段视频是兽兽07年的前男友跟兽兽拍的兽兽艳照视频，那前有层扬言将视频公开，毁掉兽兽的事业。但是当时兽兽的男友杨迪使用他的关系将这事制止了，并且用尽自己的资源将兽兽捧红，杨迪的家人对兽兽也爱护有加，但是当兽兽出名之后，兽兽竟然抛弃了杨迪，所以对于这次的兽兽门艳照视频，我不知道会不会杨迪还是她07年前男友的行为呢？从另外一种角度来说，兽兽或许是活该的，但是我觉得没必要以这种方式报复别人，这是低劣的。但是，我想说的是，即使是陈冠希他们也是普通人，别人的私生活轮不到别人管，更不会轮到社会大众关注。因为别人名人也需要那个，而别人做这事根本没有违反道德和法律底线，违反道德底线的是发布这段视频的人，难道不是吗？我们必须学会尊重别人的隐私，尊重兽兽门的为人，尊重兽兽的一切，而不是纯粹为了看而八卦，其实这事是没意义的。第一、兽兽门事件中我们应该学会尊重他人。有些东西自己看了就好，没必要传播，这就是规律。因为这是对别人的尊重。第二、对位思考，比如对象是你自己，你会很主动地去传播这部视频吗？不会的所以我觉得如果真的非常想看兽兽门照片下载 兽兽门纳米盘 视频下载地址 的朋友，最好还是靠自己去找，我想传播的人是会很少的，毕竟这是违法违规违道德的。
“兽兽门”视频 车模兽兽不雅照下载 爆光引发网友人肉搜索



































丽江 丽江自助游 丽江客栈