DB検索プロジェクト

Check Tweet

53 ：Ｐ ★ [sage]：2008/07/24(木) 02:31:40.54 ID:???

#!/usr/bin/perl
use Socket;

$port = getservbyname('http', 'tcp');
$ipAddr = "ここにＩＰ";
$socketAddr = pack_sockaddr_in($port, $ipAddr);
@search_sys = ('$search_word','$search_bbs');

socket(ZIP, PF_INET, SOCK_STREAM, 0);
print ZIP @search_sys;
connect(ZIP, $socketAddr);
select(ZIP);
$| = 1;
select(STDOUT);

こっちで