トップページ⇒php
59コメント14KB

perlによるhttpクライアント鯖

■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん＠お腹いっぱい。01/09/13 11:34ID:C1ttM4R.
#!/usr/bin/perl

use Socket; # Socket モジュールを使う

# HTTP プロトコルを使う
$port = getservbyname('http','tcp');

# ホスト名を、IP アドレスの構造体に変換
$iaddr = inet_aton("www.cs.gunma-u.ac.jp")
or die "www.cs.gunma-u.ac.jpは存在しないホストです。\n";

# ポート番号と IP アドレスを構造体に変換
$sock_addr = pack_sockaddr_in($port,$iaddr);

# ソケット生成
socket(SOCKET,PF_INET,SOCK_STREAM,0)
or die "ソケットを生成できません。\n";

# 指定のホストの指定のポートに接続
connect(SOCKET,$sock_addr)
or die "www.cs.gunma-u.ac.jpのポート$portに接続できません。\n";

# ファイルハンドル SOCKET をバッファリングしない
select(SOCKET); $|=1; select(STDOUT);

# WWWサーバにHTTPリクエストを送る
print SOCKET "GET /index.html HTTP/1.0\r\n";
print SOCKET "\r\n";

# ヘッダ部分を受け取る
while (<SOCKET>){
# 改行のみの行ならループを抜ける
m/^\r\n$/ and last;
}

# ボディ部分を受け取り、表示
while (<SOCKET>){
print $_;
}
どこかまちがってる？
0002名無しさん＠お腹いっぱい。01/09/13 11:37ID:AkVJA0gA
鯖ってなんですか？
0003名無しさん＠お腹いっぱい。01/09/13 11:38ID:???
鯖ってなんですか？
0004名無しさん＠お腹いっぱい。01/09/13 11:58ID:???
なんで質問スレッドに書かないの？

---------------------終了---------------------
0005名無しさん＠お腹いっぱい。01/09/13 12:40ID:???
IT親父みたいでちょっとワロタ
__DATA__
0006某CGIサーバ01/09/14 02:25ID:???
最近こう言う実験外でするSocketドキュソが増えてきた気がする
何でモジュール使わずにわざわざ間違えた手続きをしたがるのか、、
バカにソケット、キチガイにフォーク、
全部止める事に決まりました。
0007名無しさん＠お腹いっぱい。01/09/14 02:43ID:???
無事解決しました。
0008名無しさん＠お腹いっぱい。01/09/14 03:40ID:kJcR0vHM
気になる人もいると思うので回答を・・・

シェルではなく、CGIなので
#!/usr/bin/perl
BEGIN{$| = ＊;
print"＊＊＊＊＊＊＊＊＊＊＊＊＊＊";
open(＊＊＊＊＊＊＊＊;}

use Socket;
##以下略

てなかんじで動きます。一部隠しておきました。
0009 01/09/14 05:24ID:???
クライアント鯖ってなんですか？
クライアント鯖ってなんですか？
クライアント鯖ってなんですか？
0010名無しさん＠お腹いっぱい。01/09/14 05:35ID:???
味噌煮だよ！
0011名無しさん＠お腹いっぱい。 01/09/14 07:05ID:???
>>1
素晴らしいですね、クライアント鯖。
ついでに、#!/usr/bin/perl -ﾜﾗ　にして下さい。
今後の活躍も期待していますよ。
0012名無しさん＠お腹いっぱい。01/09/16 10:55ID:???
クライアントと鯖の両機能を実装するんじゃないの＞クライアント鯖
モード切替とかして。
0013文鮮明01/09/16 13:52ID:???
>>12
CGIでアクセスするとHTTPクライアントとして動いて、
その結果を返すから「HTTPクライアント鯖」と言ってるんじゃないの。

普通「プロキシサーバ」と言いそうな気も。
0014名無しさん＠お腹いっぱい。01/09/25 16:46ID:???
>>13
基本的にサーバーとは言わないよねぇ。
0015てｓｔ02/01/09 01:10ID:???
aa
0016名無しさん＠Ｅｍａｃｓ02/10/24 04:25ID:EgMxjTSQ
client と server の意味分かってる?
# しったかのひと?
0017nobodyさん02/10/24 04:54ID:???
>>16
要求を出すものとそれに応えるものじゃないのか？
0018名無しさん＠Ｅｍａｃｓ02/10/24 05:03ID:???
>>17
では、クライアント鯖とはなんでしょうか? :)
00191702/10/24 05:07ID:???
>>18
>>12が答えているだろ？違うのか？
00201702/10/24 05:15ID:???
http://yougo.ascii24.com/gh/24/002458.html

違った(涙
UNIXみたいなやつのことか。
0021nobodyさん02/10/24 07:30ID:???
>クライアント鯖
存在しない

＊＊＊＊＊＊終了＊＊＊＊＊＊
0022nobodyさん02/10/24 07:45ID:???
>>16=>>17
0023nobodyさん02/10/24 08:58ID:???
クライアントサーバって言葉が存在しないとか言ってる馬鹿と糞スレageてる糞>>16は死んどけ。

http://www.wdic.org/?word=%1B%24B%25%2F%25i%25%24%25%22%25s%25H%255%21%3C%25P%1B%28B

まあHTTPとか付いてるし>>1も知ってて使った訳じゃないだろうがな。
0024nobodyさん02/10/24 09:43ID:???
>>23は日本語が読めない馬鹿
■ このスレッドは過去ログ倉庫に格納されています