題未定
Subject: 題未定 Date: Apr. 11, 2006最近、というかかなり以前からなんですが、自動巡回で足跡だけ残していく人が多いです（wブログを始めた頃は、誰だろう？と思って、ちょこちょこ見に行ったりもしたのですが、そうすると大抵海外の怪しいサイトのリンクが貼ってあったりする。そんな時はPerlの小さなコードでwhoisを引いたりしてたんですが、最近は完全に無視。あ、またきたんだ、って感じで笑ってます（w#! /usr/bin/perluse strict qw/vars/; use Net::Whois::Raw; use Jcode;package Errors; sub new { bless{},shift; } sub err_no{ shift and print @{$_[0]},"\n"; exit; }package main;my $error = Errors->new;$error->err_no(["error\t","no1"]) unless(@ARGV == 1) and my $host = shift; $host =~ m/^[a-z0-9][a-z0-9\-\.\_]+\.[a-z]{2,4}$/i or $error->err_no(["error\t","no2"]);my $data = Jcode::convert(\whois($host),'utf8'); print "$data\n";exit;
出産・子育て
ファッション
美容・コスメ
健康・ダイエット
生活・インテリア
料理・食べ物
ドリンク・お酒
ペット
趣味・ゲーム
映画・ＴＶ
音楽
読書・コミック
旅行・海外情報
園芸
スポーツ
アウトドア・釣り
車・バイク
パソコン・家電
そのほか
すべてのジャンル
