DB検索プロジェクト

Check Tweet

60 ：Ｐ ★ [sage]：2008/07/25(金) 19:28:05.58 ID:???

#!/usr/local/bin/perl
use IO::Socket; # IO::Socket モジュールを使う。
# ホスト名とポート番号を設定
$host = shift || '****'; #IP
$port = shift || getservbyname('echo','tcp') || 7;
$socket = IO::Socket::INET->new(PeerAddr => $host,
PeerPort => $port,
Proto => 'tcp',
);
if ( ! $socket ){
die "なんかのエラーみたいです $!\n";
}
# 文字列を送信
print "$search_bbs\n$search_word\n$search_area\n$return_value\n";
$socket->flush();
$socket->close();
か、あるいは
#!/usr/bin/perl
use Socket; #Socketモジュールを使う
$port = getservbyname('http', 'tcp');
$ipAddr = "ここにＩＰ";
$socketAddr = pack_sockaddr_in($port, $ipAddr);
socket(SOCKET, PF_INET, SOCK_STREAM, 0);
or die "なんか上手くいってない模様\n";
print SOCKET $search_bbs\n$search_word\n$search_area\n$return_value;
connect(SOCKET, $socketAddr);
or die "きっとエラーです\n";
select(SOCKET);
$| = 1;
こんな・・・かな？