このすみ技術ろぐ

とあるWebエンジニアが、技術や趣味について書くブログです。

備忘録:PerlでHTTPアクセスを行なう

Perlはたまに書く程度でいつも忘れそうになるので、自分用の備忘録です。

正規表現の本を読んでいるとPerlが頻繁に登場するので、もう一度Perlを学びなおしてたい気分になりました。

#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);

sub get_content {
  my $url = 'http://example.com/';
  my %params = (
      test => 'example'
  );

  # POST のパラメータを渡す際に [] を忘れないようにする
  my $request = POST($url, [%params]);
  my $ua = LWP::UserAgent->new;
  $ua->timeout(30);
  #$ua->agent('');
  my $response = $ua->request($request);
  if ($response->is_success) {
    #print $response->as_string;
    return $response->content;
  } else {
    print $response->status_line, "\n";
  }
}