06/02/13 19:45:28
DSBLをPHPでも使いたいので、お願いします。
# --- DSBL・・・
printf splice(@Out_String, 0, 1), $ip;
my $ip0 = join '.', unpack 'C4', gethostbyname(sprintf qq|%s.list.dsbl.org|, join '.', reverse split /\./, $ip);
$str = $ip0 =~ /^127/ ? qq|<span class="alert">LISTされてますよ（￣ー￣）ﾆﾔﾘｯ</span><em>
<a href="URLﾘﾝｸ(dsbl.org)">more details</a></em><br>\n| : qq|<span class="safe">まだ大丈夫。(^o^)</span><br>\n|;
ソースはURLﾘﾝｸ(sv2ch.baila6.jp)です。
PHP化を是非よろしくお願いします。バージョンは4.4.2です。