プログラム 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 = $…

perl -MEncode -e 'print $INC{join( "/",split("::","Encode")).".pm"},"\n";'参考URL http://kawa.at.webry.info/200906/article_4.html

print "Content-type: text/html; charset=UTF-8\n\n";

while ( ( $key, $value ) = each( %hash) ) { print "$key : $value\n"; }

print "ここは実行されます。\n"; =pod ここはコメント行になります。 ここもコメント行になります。 =cut print "ここも実行されます。\n";

use Data::Dumper; local $Data::Dumper::Sortkeys = 1; # ハッシュのキーをソートする local $Data::Dumper::Indent = 1; # インデントを縮める local $Data::Dumper::Terse = 1; # $VAR数字要らない my $hash = { a => 1, b => 2 }; print Data::Dumper->D…