2012-01-13から1日間の記事一覧
#!/usr/local/bin/perl use strict; use utf8; use LWP::UserAgent; main(); sub main { my $ua = LWP::UserAgent->new; $ua->timeout(10); my $res = $ua->get ('https://ないしょ.com/'); if ($res->is_success) { print $res->decoded_content; } else { …