perl преобразование строк

perldoc URI::Escape

Как вариант, можно использовать такой код:

sub urldecode{ local($val)=@_; $val=~s/\+/ /g; $val=~s/%([0-9a-hA-H]{2})/pack('C',hex($1))/ge; return $val; }

а обратно как? Из текста в строку uri?

join("", map {sprintf "%%%02X", $_} unpack("C*", $string));

> а обратно как? Из текста в строку uri?

Я же сказал: perldoc URI::Escape, там всё має