Furlで置き換えてみる

Perl
  • というかFurlで置き換えてみる
use strict;
use warnings;

use LWP::UserAgent;
use Furl::HTTP;

my $html;
$html = get_html2("http://www.google.co.jp");
#$html = get_html("http://www.google.co.jp");

print $html;


sub get_html2
{
    my ($url) = @_;

    my $furl = Furl->new();
    my $res = $furl->get($url);
    unless ($res->is_success) {
        warn "faild";
        return;
    }
    my $http_res = $res->as_http_response;
    my $html = $http_res->decoded_content;

    return $html;
}

sub get_html
{
    my ($url) = @_;
    my $lwp = LWP::UserAgent->new();
    my $res = $lwp->get($url);
    unless ($res->is_success) {
        warn "faild";
        return;
    }
    my $html = $res->decoded_content;
    return $html;
}