Perl についての質問です。あるサイトを参考に以下のソースを組みましたがうまくいきません。
# リクエストの生成
my $url = "http://www.test.com/index.php";
my $host = "$url";
my $port = "80";
my $jsessionid = "lwpcookies.txt";
my $ua = new LWP::UserAgent;
my $req = new HTTP::Request POST => "$url";
$req->content_type('application/x-www-form-urlencoded');
$req->content("name=ほんげら&comment=クックロビン");
my $cookie_jar = HTTP::Cookies->new;
$cookie_jar->set_cookie(undef, "JSESSIONID", $jsessionid, "/", $host, $port);
$ua->cookie_jar($cookie_jar);
my $res = $ua->request($req);
if ($res->is_success) {
print "SUCCESS\n";
my $http = $res->content;
print "\n${http}\n";
} else {
print "FAILED\n";
}
クッキーと一緒にＰＯＳＴで投げるプログラムなのですが、どこがおかしいか指摘していただけないでしょうか？useの宣言はきちんとしてあります。
みんなの回答
-
tkyk3
満足60pt
とりあえず、こんな風に書き換えてみました。
#! /usr/bin/perl use strict; use CGI; use CGI::Carp qw(fatalsToBrowser croak); use LWP::UserAgent; use HTTP::Request; use HTTP::Cookies; my $q = new CGI; my $url = 'http://www.test.com/index.php'; my $port = 80; my $jsessionid = 'lwpcookies.txt'; my $ua = new LWP::UserAgent; my $req = HTTP::Request->new( POST => $url ); $req->content_type('application/x-www-form-urlencoded'); $req->content('name=ほんげら&comment=クックロビン'); my $cookie_jar = HTTP::Cookies->new; $cookie_jar->set_cookie(undef, 'JSESSIONID', $jsessionid, '/', $url, $port); $ua->cookie_jar($cookie_jar); my $res = $ua->request($req); print $q->header('-Content-Type' => 'text/html', '-charset' => 'UTF-8', ); if ($res->is_success) { print "SUCCESS\n"; my $http = $res->content; print "\n$http\n"; } else { print "FAILED\n"; }
CGIとしてブラウザ上で実行すると仮定してですが、意図したメッセージが表示されるようにするには、HTTPヘッダを付加してやる必要があるので、
use CGI; my $q = new CGI; print $q->header('-Content-Type' => 'text/html', '-charset' => 'UTF-8', );
を追加してみました。（UTF8の場合。Shift-JISでしたら、このあたりも変えないと）
あと、
print "\n${http}\n";は
print "\n$http\n";
かなと思うのですが如何でしょうか。
ただ、上のソースは文法チェックのみなので、実際にうまくいくかどうかは別問題です…また状況が分かれば投稿したいと思います。
この質問へのコメント
質問の情報
- 登録日時
- 2007-11-25 01:58:10
- 終了日時
- 2007-12-02 02:00:05
- 回答条件
- 回答にURL必須 1人20回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
TikTok Followers Generator https://www.linkedin.com/pulse/get-200k-free-tiktok-followers-100-fans-su…
匿名質問者
-
高二男子です。なんか最近知らない女性によく話しかけられます。要件はそんなに大したことじゃなくただlin…匿名質問者
1
-
Ssadfsfds dsfsdf dsfdsf匿名質問者
-
これらは、猫の嫌う匂いらしい。蠅、蚊、ゴキブリ は、これらを嫌わないのだろうか ●柑橘類の匂い …匿名質問者1
-
アメリカ本土は、４つの時間があるようですが、同じ州なのに、ふたつに分かれているところがあります。銀行…匿名質問者
ほうが効果的な回答をもらいやすいと思いますよ。
接続時にウェブサーバに残ったログが分かれば更にGoodです。
非常に遅くなりましてすいません！
返信をおくったつもりなのが、書き込まれていませんでした、、、。
結果はうまくいきました！ありがとうございました。