Ответ

cmdz 03.01.2016 09:24 / 03.01.2016 09:25

В Perl эта строка для кодирования строк в URL-ы (urlencode)

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

Вот собственно код самого скрипта на Perl

#!/usr/bin/perl
# print "Content-Type: text/html\n\n";

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

Посмотрел что перловская строка кодирует еще и слеши "/" -> "%2F",
сейчас написал на парсере вот так, пока вроде работает, правда не знаю, может какие еще камешки повылезают

$str[^taint[uri][$str]]
$result[^str.replace[/;%2F]]

Спасибо.

---