URL에 알파벳과 숫자 이외에 한글이나 다른 기호가 포함되어 있어서, 처리에 문제가 있는 경우에 이걸 "%16진수" 형태로 변경하는 인코딩 함수와, "%16진수" 형태로 나열된 걸 다시 원래의 코드로 디코딩하는 역함수.
EncodeUrl()은 원래 있었는데 /Twitter연동 패치를 하면서 조금 수정됐습니다. DecodeUrl()은 ext2.13에서 새로 생겼습니다
sub EncodeUrl { my ($string) = @_; $string =~ s!([^:/&?#=a-zA-Z0-9_.-])!uc sprintf "%%%02x", ord($1)!eg; return $string; } sub DecodeUrl { my ($string) = @_; $string =~ s/%([0-9a-fA-F]{2})/chr(hex($1))/ge; return $string; }