Без заголовка

Max 03.01.2016 05:38

Подскажите как эту строчку написанную на Perl превратить в Parser?

$str =~ s/([^A-Za-z0-9-._~])/sprintf("%%%02X", ord($1))/seg;

пробовал

^taint[uri]

Но что-то не так...

Есть класс запросов для к twitter api написанный на parser`e, единственную, вот эту строчку приходится вызывать из внешнего скрипта.
Спс. С наступившим всех.

---