2ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

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

1 :名無しさん@お腹いっぱい。:01/09/13 11:34 ID: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 $_;
}
どこかまちがってる?

2 :名無しさん@お腹いっぱい。:01/09/13 11:37 ID:AkVJA0gA
鯖ってなんですか?

3 :名無しさん@お腹いっぱい。:01/09/13 11:38 ID:???
鯖ってなんですか?

4 :名無しさん@お腹いっぱい。:01/09/13 11:58 ID:???
なんで質問スレッドに書かないの?

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

5 :名無しさん@お腹いっぱい。:01/09/13 12:40 ID:???
IT親父みたいでちょっとワロタ
__DATA__

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

7 :名無しさん@お腹いっぱい。:01/09/14 02:43 ID:???
無事解決しました。

8 :名無しさん@お腹いっぱい。:01/09/14 03:40 ID:kJcR0vHM
気になる人もいると思うので回答を・・・

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

use Socket;
##以下略

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

9 : :01/09/14 05:24 ID:???
クライアント鯖ってなんですか?
クライアント鯖ってなんですか?
クライアント鯖ってなんですか?

10 :名無しさん@お腹いっぱい。:01/09/14 05:35 ID:???
味噌煮だよ!

11 :名無しさん@お腹いっぱい。 :01/09/14 07:05 ID:???
>>1
素晴らしいですね、クライアント鯖。
ついでに、#!/usr/bin/perl -ワラ にして下さい。
今後の活躍も期待していますよ。

12 :名無しさん@お腹いっぱい。:01/09/16 10:55 ID:???
クライアントと鯖の両機能を実装するんじゃないの>クライアント鯖
モード切替とかして。

13 :文鮮明:01/09/16 13:52 ID:???
>>12
CGIでアクセスするとHTTPクライアントとして動いて、
その結果を返すから「HTTPクライアント鯖」と言ってるんじゃないの。

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

14 :名無しさん@お腹いっぱい。:01/09/25 16:46 ID:???
>>13
基本的にサーバーとは言わないよねぇ。

4 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.02.02 2014/06/23 Mango Mangüé ★
FOX ★ DSO(Dynamic Shared Object)