『fugafuga』 unixｺﾏﾝﾄﾞﾒﾓ -LinuxTips- : perl urlencode(エンコード)の方法(関数） -正規表現-
2008年07月25日11:51 perl urlencode(エンコード)の方法(関数） -正規表現- カテゴリperl設定、自動化、便利、テンプレート関連 perlでurlをencodeする場合もモジュールがいくらでもあると思いますが、 あまりゴテゴテuse したくない場合、↓の関数コピペでイケると思います。 # usage $encoded_url = url_encode($url) sub url_encode { my($url) = $_[0]; $url =~s/([^a-zA-Z0-9_@.\/-])/(sprintf("%%%04X",unpack("S", "$1"))) eq "%0000" ? sprintf("%%%02X",unpack("C", "$1")) : sprintf("%%\?%04X\?%%", unpack("S", "$1"))/eg; $
PerlプログラミングTips集（変換編）
Perlでプログラムをするときに参考となるソース集です。 URLエンコード/デコード処理 URLエンコード処理 CGIにデータを渡す場合、URL（URI）エンコードする必要があります。 URLエンコードすると、特殊な文字や漢字は %xx (xx は16進数) となります。 以下の方法で、変数（$arg）の内容をURLエンコードすることができます。 URLエンコードしなければならない文字は使わないのがベストですね。 #!/usr/local/bin/perl $arg = $ARGV[0]; printf("arg=%s\n", $arg); # URLエンコード $arg =~ s/(\W)/sprintf("%%%02X", ord($1))/ego; printf("arg=%s\n", $arg); s/PATTERN/REPLACEMENT/egoで、置換を行なっています。 eは、
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Perlモジュール/LWP - Walrus, Digit.
AAアスキーアート
