URLエンコード・デコード

2010-11-29

久々にperlをいじったけど、すっかりURLエンコードについて忘れてる…。

やり方もいろいろある用で…。うーん

とりあえず、「+」だけは 別で置換しろ・・・と。

• 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;
}