2003-11-21 URLエンコード perl とりあえず他人の書いたのをパクってこんなのになりました。 sub url_encode(){ $str = shift; $str =~ s/[^\w ]/'%'.unpack('H2',$1)/eg; $str =~ tr/ /+/; return $str; }[^\w ]ってところで人によっては書き方が違うみたい。 うまく動いてるからどうでもいいけど。