サイドコンテンツ 【メイン】

推し:加藤安那

加藤安那 (ユメオイ少女)

Twitter: @_hana_celeb_

最新 15 件のエントリー

サイドコンテンツ 【サブ】

ブログ エントリー

  • [Perl] LWP::UserAgent の default_header

    -
    my $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 を作り直せばいいだけなんですけどね。