URLエンコード/デコード
- [Perl]
覚え書き的ですが
# エンコード $value =~ s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg; # デコード $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
トラックバック
- このエントリーにトラックバック:
- http://frog.raindrop.jp/cgi-bin/mt/mt-tb.cgi/135
コメント