プログラム my $komoji = 'aiueoAIUEO0123456789,./%-'; print "komoji : ".$komoji."<br>"; my $oomoji = Jcode->new($komoji)->tr('a-zA-Z0-9-!(),./%%','ａ-ｚＡ-Ｚ０-９！−（），．／％')->sjis; print "oomoji : ".$oomoji."<br>"; Apacheエラーログ Malformed …

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 = $…