PerlでURLエンコードとデコード

Today:

Yesterday:

Total:

Online:

最近の記事

カテゴリー

最近のコメント

その他

RSSリーダーで購読する |

この日記のはてなブックマーク数

| プロフィール
コメントが一番多い記事（233コメント）：人の心理の裏をかくホームページ集客術：リピータになってもらうためには
ツイートが一番多い記事（94ツイート）：ちょっと待て！twitterやfacebookに子供の写真を掲載する親達への警告
いいねが一番多い記事（574いいね）：facebookスパムに要注意。なりすましの見分け方とアカウント乗っ取りの手口（2013年度版）

« Windowsでスケジュール（タスク） | Main | WaveLan/IEEE Settingsのキー（WEP）の設定について»

カテゴリー » Perl（CGI） June 04, 2008

PerlでURLエンコードとデコード `ID:1212570962`

url encode

sub url_encode($) {
  my $str = shift;
  $str =~ s/([^\w ])/'%'.unpack('H2', $1)/eg;
  $str =~ tr/ /+/;
  return $str;
}

url decode

sub url_decode($) {
  my $str = shift;
  $str =~ tr/+/ /;
  $str =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2', $1)/eg;
  return $str;
}

http://sonic64.com/2003-08-31.html

— posted by midilin @ 06:16PM

[コメントが多かった順の記事]
・人の心理の裏をかくホームページ集客術：リピータになってもらうためには(233)
・ホームページ心理学第２弾「メールの書きだしとホームページ運営・集客の関係」(76)
・娘が生まれた(69)
・ゲームと言えば、何を思い出す？ (50)
・Microsoftからアクセス (30)
・「目標の立て方」と「努力」と「実行力」(26)

カウンター