2009-12-01から1日間の記事一覧
sub url_encode($) { my $str = shift; $str =~ s/([^\w ])/'%'.unpack('H2', $1)/ego; $str =~ tr/ /+/; return $str; }
my $content = httpRequest("http://www.hoge.com/"); print $content; sub httpRequest{ my $url = shift; my($request, $userAgent, $response, $content); $request = HTTP::Request->new(GET => $url); $userAgent = LWP::UserAgent->new; $response = $…