トップページ⇒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は日本語が読めない馬鹿
0025nobodyさん02/10/24 10:12ID:zD5SYTXT
すくなくとも「perlによるhttpクライアント鯖」こんな日本語
は存在しない。
0026nobodyさん02/10/24 10:15ID:???
だいたい「クライアントサーバ」ってなんだよ。
「クライアント/サーバ」だろ。
0027nobodyさん02/10/24 11:22ID:???
>>24
お前のことか？

>>25
「まあHTTPとか付いてるし>>1も知ってて使った訳じゃないだろうがな。」が読めんのかボケ

>>26
で？／省く時もあるだろﾎﾞｹ
0028nobodyさん02/10/24 13:52ID:???
>>27
やっぱりバカだったのか。
0029nobodyさん02/10/25 02:44ID:???
クライアント鯖

存在しないな。
クライアントサーバならまだしも。
0030nobodyさん03/02/23 17:54ID:Eprbt5lq
age
0031nobodyさん03/03/13 17:13ID:HVaLiI2c
0032nobodyさん03/05/09 03:45ID:???
半年たって23は少しは賢くなっているだろうか、、。
0033名無し~3.EXE03/09/07 02:17ID:d/NhpeTc
HTTPプロトコルサーバおよびHTTPプロトコルクライアント

ではどうだろう？
Pとプロトコルがダブっているけど、その位はいいよね？
0034nobodyさん03/09/08 02:07ID:xgxuw5Cp
de
0035nobodyさん03/09/18 17:40ID:???
>>33
よくないだろ。通信網ネットワークみたいなもんだな。

>>23
「HTTPクライアントサーバーモデル」の略だとしたら、そんなものは既に
RFCによって定義済みのものだから「perlによる」が意味不明。

少なくとも>>1は単なるHTTPクライアントだからサーバーは全く
関係ない。
0036nobodyさん03/09/18 17:42ID:???
>>1
群馬大学理工学部情報工学科か・・・。

ってお前まさか夏休みの宿題を今ごろやってるのか？
0037nobodyさん03/09/20 09:35ID:O1K/ERYs
>>36
スゲェ、どうやって調べました？
削除人のパソコンに侵入したんですか？
0038nobodyさん03/09/20 11:15ID:???
>>36は課題出した教官
0039名無し募集中。。。03/09/20 17:19ID:p48XDXoW
とりあえず「サーバント」ってやつは存在するけどなーｗ
0040nobodyさん03/09/20 17:23ID:vRtm1J9O
>>37
>>1のソースよく見てみ。
■ このスレッドは過去ログ倉庫に格納されています