kmHTTP.pm - HTTP/1.1 で web 上のリソースを得るモジュール

NAME

kmHTTP.pm - HTTP/1.1 で web 上のリソースを得るモジュール

SYNOPSIS

  # HTTP レスポンスヘッダとボディを別々に得る
  use kmHTTP;
  my ( $head, $body ) = kmHTTP::GET( 'http://some.server.net/' );

  # ヘッダとボディを一度に得る
  use kmHTTP;
  my $head_body = kmHTTP::GET( 'http://some.server.net/' );

プロクシの設定をします。第 1 引数はプロクシサーバ名もしくは IP アドレス，第 2 引数はポート番号を入力します。

  use kmHTTP;
  kmHTTP::useProxy( 'proxy.server.net', 3129 );
  my $data = kmHTTP::GET( 'http://some.server.net/' ); # HTTP プロクシを通した結果

第 2 引数は省略可能です。省略した場合，前回使用されたポート番号をそのまま用います。初期状態は 8080 が設定されています。

  kmHTTP::useProxy( 'proxy.server.net' );

リファラを設定します。

  use kmHTTP;
  kmHTTP::setReferer( 'http://some.server.net/page1' );

初期値は undef です。undef の場合，リファラを送りません。

  my $url = 'http://some.server.net/';
  use kmHTTP;
  kmHTTP::GET( $url );  # リファラ送らない

  kmHTTP::setReferer( 'http://some.server.net/' );
  kmHTTP::GET( $url );  # リファラ送る

  kmHTTP::setReferer( undef );
  kmHTTP::GET( $url );  # リファラ送らない

ユーザエージェント文字列を設定します。

  use kmHTTP;
  kmHTTP::setUA( 'HTTPGetter/1.3 (comment here...)' );

GET メソッドで web からデータを取得します。 HTTP ヘッダも含まれます。

  # ヘッダとボディを別々に収録
  use kmHTTP;
  my ( $head, $body )  = kmHTTP::GET( 'http://some.server.bet/' );

  # ヘッダとボディを一緒に取得
  use kmHTTP;
  my $data = kmHTTP::GET( 'http://some.server.net/' );

HEAD メソッドで HTTP ヘッダを取得します。

  # ヘッダとボディを別々に
  # HEAD メソッドでも，まれに body を返してくるサーバがある。。。
  use kmHTTP;
  my ( $head, $body ) = kmHTTP::HEAD( 'http://some.server.net/' );

  use kmHTTP;
  my $data = kmHTTP::HEAD( 'http://some.server.net/' );

kmHTTP.pm - HTTP/1.1 で web 上のリソースを得るモジュール