Perl/ウェブ系関数の変更点

追加された行はこの色です。
削除された行はこの色です。
Perl/ウェブ系関数は削除されています。
Perl/ウェブ系関数の差分を削除

*ウェブアプリ系関数 [#ob8debb4]

**URLエンコード [#fca8184c]
 sub url_encode($) {
   my $str = shift;
   $str =~ s/([^\w ])/'%'.unpack('H2', $1)/eg;
   $str =~ tr/ /+/;
   return $str;
 }

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