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 = "ここにIP";
$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;
こんな・・・かな?
64.74 KB Speed:0   VIP Service VIPサービス運用情報 更新 専用ブラウザ 検索 全部 前100 次100 最新50 続きを読む
名前: E-mail(省略可)

256ビットSSL暗号化送信っぽいです 最大8000バイト 最大95行
画像アップロードに対応中!(http://fsmから始まるひらめアップローダからの画像URLがサムネイルで表示されるようになります)


スポンサードリンク


Check このエントリーをはてなブックマークに追加 Tweet

荒巻@中の人 ★ VIP(Powered By VIP Service) read.cgi ver 2013/10/12 prev 2011/01/08 (Base By http://www.toshinari.net/ @Thanks!)
respop.js ver 01.0.4.0 2010/02/10 (by fla@Thanks!)