No.1ベストアンサー
- 回答日時:
LWP を使用しないわけは何ですか?素直に使用して方がいいですよ。
面倒なコーディングをしなくていいので。とりあえず以下にサンプル
を付けますがエラー処理を省いています。
#! /usr/local/bin/perl
#webサーバ名の取得
($remotehost) = @ARGV;
if ($remotehost eq ''){
$remotehost = 'localhost';
}
#ソケットに与えるパラメータの用意
$AF_INET = 2;
$SOCK_STREAM = 1;
$sockaddr = 'S n a4 x8';
chop($localhost = "localhost");
($name, $aliases, $proto) = getprotobyname('tcp');
($name, $aliases, $port) = getservbyname('http', 'tcp');
($name, $aliases, $type, $len, $thisaddr) = gethostbyname($localhost);
($name, $aliases, $type, $len, $thataddr) = gethostbyname($remotehost);
$this = pack($sockaddr, $AF_INET, 0, $thisaddr);
$that = pack($sockaddr, $AF_INET, $port, $thataddr);
#ソケットの作成と接続
if (socket(S, $AF_INET, $SOCK_STREAM, $proto)){
print "socket ok\n";
} else {
die $!;
}
if (bind(S, $this)){
print "bind ok\n";
} else {
die $!;
}
if (connect(S, $that)){
print "onnect ok\n";
} else {
die $!;
}
#ソケットのフラッシュ
select(S); $| = 1; select(STDOUT); # flush S
print "GET /index.html\n\n";
print S "GET /index.html\n";
do {
$msg = <S>;
if(eof(S)){
exit;
}
print STDERR $msg;
} until $msg != "";
この回答へのお礼
お礼日時:2002/01/30 09:13
環境に依存するようなモジュールはできるだけ利用したくなかった
為、こういったものを探してました。
ありがとうございました。
無事解決できました!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Perl Perl の外部モジュールの利用方法 3 2022/07/10 18:34
- Visual Basic(VBA) Excel VBAで教えてください 4 2022/05/11 22:20
- その他(プログラミング・Web制作) python 気象データの取得 2 2023/06/20 23:54
- CGI サイト訪問者の情報を取得したい 1 2023/02/21 11:03
- Excel(エクセル) VBA : スクレイピングできない 4 2023/05/12 22:26
- バッテリー・充電器・電池 AC-DC電源モジュールの選択について教えてください 3 2022/04/24 11:44
- UNIX・Linux UNIX manページとか見る頻度高いの? 特にCLIばかり使っている人のなかで というかCLIとか 3 2023/05/22 17:06
- Excel(エクセル) EXCELの外部データ取得ができない 1 2023/03/23 09:03
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- 日本株 楽天RSS2での移動平均の取得について 1 2022/07/28 21:48
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Perlで特定文字列から特定文字...
-
テキストファイルで提出とは?
-
openした後、closeしないでプロ...
-
Perlのエラーについてご教授く...
-
perlの構文でカンマの意味が分...
-
Perl の外部モジュールの利用方法
-
Perlでsprintf("%02d",$month)...
-
Perlでの文字列置換
-
フローチャート 九九
-
perl LWPでURLにアクセスした時...
-
perl 初等プログラミングについて
-
Perlで、「が」を、「...
-
Windows版のPerlについて
-
このファイルを開く方法で困っ...
-
アルファベットに付いて質問し...
-
#!/usr/bin/perlで書きだしたCG...
-
perlのflock関数でロックをかけ...
-
AI sisterとは、偽物の人ですか?
-
bashスクリプト
-
ファイルアイコンの左下に緑の□...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
INDIRECT 横に再度抽出したい
-
perlをバージョンアップしたら...
-
openした後、closeしないでプロ...
-
Perlで特定文字列から特定文字...
-
Wallpaper Engineでおすすめの...
-
Perlのエラーについてご教授く...
-
アルファベットに付いて質問し...
-
Strawberry Perl for Windows ...
-
bashスクリプト
-
テキストファイルで提出とは?
-
Perl の外部モジュールの利用方法
-
#!/usr/bin/perlで書きだしたCG...
-
Windows10においての『Perl』の...
-
perlのflock関数でロックをかけ...
-
perlで2次元配列をサブルーチ...
-
Perlで時間の計算
-
perlのrequireの動き方について...
-
画像が表示でnull; this.src
-
ターミナルで特定の文字と文字...
-
英数文字列のうちの数値を4桁に...
おすすめ情報