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);
こっちで
229Res/65.13 KB
↑[8] 前[4] 次[6]
書[5]
板[3] 1-[1] l20
