ブログ エントリー
-
[Perl] LWP::UserAgent の default_header
プログラム - 2016/06/03 19:58:05my $ua = LWP::UserAgent->new(); $ua->default_header( 'X-2ZICON' => 'niji-no-conquistador' );上記のようにしたとき、次にアクセスするときに
'X-2ZICON'を削除するときは以下のようにすれば良い。$ua->default_header( 'X-2ZICON' => undef );簡単なスクリプトを書いて実行した結果。
■ default_header 未設定 HTTP_CONNECTION = TE, close HTTP_HOST = 0pm.0am.jp HTTP_TE = deflate,gzip;q=0.3 HTTP_USER_AGENT = Mozilla/5.0 (Windows NT 5.1; rv:32.0) Gecko/20100101 Firefox/32.0 ■ default_header 設定 HTTP_CONNECTION = TE, close HTTP_HOST = 0pm.0am.jp HTTP_TE = deflate,gzip;q=0.3 HTTP_USER_AGENT = Mozilla/5.0 (Windows NT 5.1; rv:32.0) Gecko/20100101 Firefox/32.0 HTTP_X_2ZICON = niji-no-conquistador ■ default_header 削除 HTTP_CONNECTION = TE, close HTTP_HOST = 0pm.0am.jp HTTP_TE = deflate,gzip;q=0.3 HTTP_USER_AGENT = Mozilla/5.0 (Windows NT 5.1; rv:32.0) Gecko/20100101 Firefox/32.0こんな事してないで $ua を作り直せばいいだけなんですけどね。
-
[Perl] LWP::UserAgent の default_header
http://0pm.0am.jp/memo3/index.cgi?entry=20160603_195805

