< @INC | Perlを秀○強調表示する >

December 17, 2003

URLエンコード/デコード

覚え書き的ですが

# エンコード
$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

コメント

コメントする

※ コメントスパム対策のため、コメント本文はおはよう、こんにちわ、こんばんわのいずれかより始めるようにしてください。

name:
email:

※ 必要ですが、表示しません。

url:
情報を保存する ?