質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
Perl

Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。

Q&A

0回答

2377閲覧

LWP::UserAgentにてagentの設定有無でステータスが違う

dehio3

総合スコア11

Perl

Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。

0グッド

0クリップ

投稿2017/06/14 04:54

問題

とあるURLの存在チェックする処理にて、agentを設定すると403が返ってきて、agentを設定しないと200が返ってる。
(逆ならわかるのですが・・)

バージョン

$ perl -version This is perl 5, version 16, subversion 3 (v5.16.3) built for x86_64-linux-thread-multi (with 29 registered patches, see perl -V for more detail)
$ rpm -qa | grep libwww-perl perl-libwww-perl-6.05-2.17.amzn1.noarch

スクリプト

perl

1#!/usr/bin/perl 2 3use strict; 4use warnings; 5use LWP::UserAgent; 6 7my $ua = LWP::UserAgent->new; 8$ua->agent('Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1)'); ←ここをコメントアウトするorしない 9$ua->timeout(5); 10 11my $url = '<チェックしたいURL>'; 12 13my $req = HTTP::Request->new(GET => $url); 14my $res = $ua->request($req); 15 16print $res->status_line . "\n"; 17print $res->code . "\n";

実行結果

  • $ua->agentあり
$ perl http_status.pl 403 Forbidden 403
  • $ua->agentなし(コメントアウト)
$ perl http_status.pl 200 OK 200

補足

  • perlv5.8.5(perl-libwww-perl-5.79-5)の環境ではagentを設定した状態でも200が返ってくる&agentを無効化しても200が返って来る。
  • 対象のURLはchromeのブラウザからはアクセス可能。ただし、301でリダイレクトしている。

質問

  • この差の原因はなんなのか?
  • agentを設定した状態でも200を変えさせるためにはどうすればいいか?

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

まだ回答がついていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問