トップページ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てst02/01/09 01:10ID:???
aa
0016名無しさん@Emacs02/10/24 04:25ID:EgMxjTSQ
client と server の意味分かってる?
# しったかのひと?
0017nobodyさん02/10/24 04:54ID:???
>>16
要求を出すものとそれに応えるものじゃないのか?
0018名無しさん@Emacs02/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
とりあえず「サーバント」ってやつは存在するけどなーw
0040nobodyさん03/09/20 17:23ID:vRtm1J9O
>>37
>>1のソースよく見てみ。
00413703/09/20 23:15ID:???
>>40
とてもよくわかりました。
マジハッカーかと思ってびびった。
0042+++03/09/21 02:46ID:???
ワラ
0043nobodyさん03/09/21 02:55ID:???
スレ立ってから2年も経ってるのか。。。

>>1は無事卒業できたかなぁ。。。群馬大学(w
0044nobodyさん04/01/27 02:59ID:ZSNdQSLd
ワラタ
0045nobodyさん04/02/18 14:47ID:2JlZZK32
でhttpクライアント鯖は作れたのか?w
0046nobodyさん04/03/08 23:18ID:???
プロキシサーバーってことじゃないのか

そういえばこんなスレまだあったんだな
0047nobodyさん04/03/29 18:53ID:???
http://x68000.startshop.co.jp/~68user/net/http-2.html
00482005/05/22(日) 11:09:48ID:???
httpクライアントのスレってあってもいいと思ふけれど,
このスレタイぢゃ誰もマジメにレスしないな.
足掛け5年たっても,このスレ消えないしw
新しく立て直すかね?
0049nobodyさん2005/07/06(水) 22:30:02ID:20r5opuZ
LWPとHTTP::Deamonを使ってクライアント鯖を作ってみよう!
プログラムファイル名は、ClientSaba.pl
0050nobodyさん2006/12/08(金) 04:17:59ID:O/tUI87z
いままで認証はモジュールにお任せしていたのですが、
スクリプト内で WWW-Authenticate: へっだを生成する
などして Basic 認証、Digest 認証 を強制したいと思っています。

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

クライアントの視点に立つと、
一度目はクレデンシャル無しでリクエスト、
そのレスポンスで認証が必要であることを知る、
二度目はクレデンシャル有りでリクエスト、
そのレスポンスで無事コンテンツを得る。
0051nobodyさん2007/04/26(木) 16:21:55ID:Xsmaee58
■ Perl言語 ■ 何でも質問コーナー ■
http://mixi.jp/view_bbs.pl?id=17607679&comm_id=1401396
Perlに関すること、cgiに関すること
なんでも質問できるコーナーです(たとえばApacheとかでもOKとします!)
(Web系であればOK)

ルール:
Google検索で調べてわかるようなことでも質問してもOKです
(初心者のうちは、どの情報を取捨選択したらイイのかわからないと思うので)
回答してくださるかたは、暖かく質問者を迎えてやってください
o(^^o) (o^^)o
0052nobodyさん2007/04/30(月) 01:11:43ID:AYCk3dLZ
黒い餡と鯖を食べさせてくれるところはここですか?
0053nobodyさん2007/05/06(日) 22:06:41ID:7ULZKRmd
>>1のコードが殆どコピペだね
http://x68000.q-e-d.net/~68user/net/http-2.html
0054nobodyさん2008/02/18(月) 12:35:46ID:???
6年経って突っ込むとは、WebProg板は恐ろしい。
0055nobodyさん2011/09/02(金) 12:58:22.47ID:???
>>54
更に3年以上経って突っ込む事になるとは、WebProg板は恐ろしい。
0056nobodyさん2011/09/29(木) 19:46:18.60ID:???
age
0057 【26.8m】 電脳プリオン ◆GDSZsj1GHk 2012/02/12(日) 14:10:07.04ID:????2BP(2077)
ftpは?
0058nobodyさん2013/10/23(水) 04:00:05.94ID:syujKZN1
知らない
0059nobodyさん2013/11/16(土) 15:16:52.43ID:???
furlの話題がないねって誰もいないのか。
■ このスレッドは過去ログ倉庫に格納されています