{"published":"2010-02-10 01:16:09","width":"100%","provider_name":"Hatena Blog","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Ft-kashima.hateblo.jp%2Fentry%2F20100210%2F1265818569\" title=\"LWP::UserAgent - \u591c\u304b\u3089\u671d\u306b\u304b\u3051\u3066\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","blog_url":"https://t-kashima.hateblo.jp/","height":"190","blog_title":"\u591c\u304b\u3089\u671d\u306b\u304b\u3051\u3066","author_name":"t-kashima","provider_url":"https://hatena.blog","description":"\u5fd8\u308c\u306a\u3044\u3088\u3046\u306b\u30e1\u30e2UserAgent\u3092\u5909\u66f4\u3059\u308b\u3068\u3044\u3046\u5358\u7d14\u306a\u30e1\u30e2\u3002 #!/usr/bin/env perl use strict; use LWP::UserAgent; my $ua = LWP::UserAgent->new; $ua->timeout(10); $ua->agent(\"Mozilla\"); sub main { my $url = \"http://ja.wikipedia.org/\"; my $req = HTTP::Request->new(GET=>$url); my $res = $ua->request($req); return if(!$res->is_succ\u2026","author_url":"https://blog.hatena.ne.jp/t-kashima/","image_url":null,"type":"rich","url":"https://t-kashima.hateblo.jp/entry/20100210/1265818569","categories":["Perl"],"version":"1.0","title":"LWP::UserAgent"}