返回列表 回复 发帖

perl 域名查询程序

作者:飞鸟
email: flybird@chinaasp.com
日期:2000-9-22 17:20:25

#  perl 国内域名查询程序
#  flybird@chinaasp.com
#  2000-9-22
#  perl 写socket程序确实很简单。
  1. use IO::Socket::INET;
  2. $fqdn   = "ourstory.com.cn";
  3. $server = "whois.cnnic.net.cn";
  4. $sock   = IO::Socket::INET->new("$server:43") || die "fail";
  5. print $sock "$fqdn\n";
  6. @ret    = <&#36;sock>;
  7. print "@ret";  
复制代码

                     我是一个呼吸着现在的空气而生活在过去的人
               这样的注定孤独,孤独的身处闹市却犹如置身于荒漠
                                     我已习惯了孤独,爱上孤独
                                 他让我看清了自我,还原了自我
                             让我再静静的沉思中得到快乐和满足
                                   再孤独的世界里我一遍又一遍
                                   不厌其烦的改写着自己的过去
                                             延伸到现在与未来
                                       然而那只是泡沫般的美梦
                                 产生的时刻又伴随着破灭的到来
                         在灰飞烟灭的瞬间我看到的是过程的美丽
                                      而不是结果的悲哀。。。
返回列表