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

#!/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 $_;
}
どこかまちがってる？

鯖ってなんですか？

鯖ってなんですか？

なんで質問スレッドに書かないの？

---------------------終了---------------------

IT親父みたいでちょっとワロタ
__DATA__

最近こう言う実験外でするSocketドキュソが増えてきた気がする
何でモジュール使わずにわざわざ間違えた手続きをしたがるのか、、
バカにソケット、キチガイにフォーク、
全部止める事に決まりました。

無事解決しました。

気になる人もいると思うので回答を・・・

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

use Socket;
##以下略

てなかんじで動きます。一部隠しておきました。

クライアント鯖ってなんですか？
クライアント鯖ってなんですか？
クライアント鯖ってなんですか？

味噌煮だよ！

>>1
素晴らしいですね、クライアント鯖。
ついでに、#!/usr/bin/perl -ﾜﾗ　にして下さい。
今後の活躍も期待していますよ。

クライアントと鯖の両機能を実装するんじゃないの＞クライアント鯖
モード切替とかして。

>>12
CGIでアクセスするとHTTPクライアントとして動いて、
その結果を返すから「HTTPクライアント鯖」と言ってるんじゃないの。

普通「プロキシサーバ」と言いそうな気も。

>>13
基本的にサーバーとは言わないよねぇ。

aa

client と server の意味分かってる?
# しったかのひと?

>>16
要求を出すものとそれに応えるものじゃないのか？

>>17
では、クライアント鯖とはなんでしょうか? :)

>>18
>>12が答えているだろ？違うのか？

http://yougo.ascii24.com/gh/24/002458.html

違った(涙
UNIXみたいなやつのことか。

>クライアント鯖
存在しない

＊＊＊＊＊＊終了＊＊＊＊＊＊

>>16=>>17

クライアントサーバって言葉が存在しないとか言ってる馬鹿と糞スレ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も知ってて使った訳じゃないだろうがな。

>>23は日本語が読めない馬鹿

すくなくとも「perlによるhttpクライアント鯖」こんな日本語
は存在しない。

だいたい「クライアントサーバ」ってなんだよ。
「クライアント/サーバ」だろ。

>>24
お前のことか？

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

>>26
で？／省く時もあるだろﾎﾞｹ

>>27
やっぱりバカだったのか。

クライアント鯖

存在しないな。
クライアントサーバならまだしも。

age

半年たって23は少しは賢くなっているだろうか、、。

HTTPプロトコルサーバおよびHTTPプロトコルクライアント

ではどうだろう？
Pとプロトコルがダブっているけど、その位はいいよね？

de

>>33
よくないだろ。通信網ネットワークみたいなもんだな。

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

少なくとも>>1は単なるHTTPクライアントだからサーバーは全く
関係ない。

>>1
群馬大学理工学部情報工学科か・・・。

ってお前まさか夏休みの宿題を今ごろやってるのか？

>>36
スゲェ、どうやって調べました？
削除人のパソコンに侵入したんですか？

>>36は課題出した教官

とりあえず「サーバント」ってやつは存在するけどなーｗ

>>37
>>1のソースよく見てみ。

>>40
とてもよくわかりました。
マジハッカーかと思ってびびった。

ﾜﾗ

スレ立ってから2年も経ってるのか。。。

>>1は無事卒業できたかなぁ。。。群馬大学（ｗ

ﾜﾗﾀ

でhttpクライアント鯖は作れたのか？ｗ

プロキシサーバーってことじゃないのか

そういえばこんなスレまだあったんだな

http://x68000.startshop.co.jp/~68user/net/http-2.html

httpクライアントのスレってあってもいいと思ふけれど，
このスレタイぢゃ誰もマジメにレスしないな．
足掛け５年たっても，このスレ消えないしw
新しく立て直すかね？

LWPとHTTP::Deamonを使ってクライアント鯖を作ってみよう！
プログラムファイル名は、ClientSaba.pl

いままで認証はモジュールにお任せしていたのですが、
スクリプト内で WWW-Authenticate: へっだを生成する
などして Basic 認証、Digest 認証 を強制したいと思っています。

で、いまさらながら、なのですが、Basic 認証や Digest 認証を
するときって、HTTP のリクエストが同じ URL に対して二度発生する
ということですよね？

クライアントの視点に立つと、
一度目はクレデンシャル無しでリクエスト、
そのレスポンスで認証が必要であることを知る、
二度目はクレデンシャル有りでリクエスト、
そのレスポンスで無事コンテンツを得る。

■　Perl言語　■　何でも質問コーナー　■
http://mixi.jp/view_bbs.pl?id=17607679&comm_id=1401396
Perlに関すること、cgiに関すること
なんでも質問できるコーナーです(たとえばApacheとかでもOKとします！)
（Web系であればOK）

ルール：
Google検索で調べてわかるようなことでも質問してもOKです
（初心者のうちは、どの情報を取捨選択したらイイのかわからないと思うので）
回答してくださるかたは、暖かく質問者を迎えてやってください
o(^^o) (o^^)o

黒い餡と鯖を食べさせてくれるところはここですか？

>>1のコードが殆どコピペだね
http://x68000.q-e-d.net/~68user/net/http-2.html

6年経って突っ込むとは、WebProg板は恐ろしい。

>>54
更に3年以上経って突っ込む事になるとは、WebProg板は恐ろしい。

age

ｆｔｐは?

知らない

furlの話題がないねって誰もいないのか。

★2ch勢いランキングサイトリスト★

◎ +ニュース
・ 2NN
・ 2chTimes
◎ +ニュース新着
・ 2NN新着
・ Headline BBY
◎ +ニュース他
・ Desktop2ch
・ 記者別一覧
◎ 全板
・ 全板縦断勢いランキング
・ スレッドランキング総合ランキング
◎ 実況込み
・ 2勢
・ READ2CH
・ i-ikioi

※ 要サイト名検索