> > > $string=~s~%(..)~pack('c',hex($1))~ge; > > Блин, никакого резалта. Все тоже самое. . . :-( > Видимо, ты не там ее обрабатываешь. Она работает, проверь: > perl -e 'my $x="%F2%E5%F1%F2"; > $x=~s~%(..)~pack(c,hex($1))~ge; print $x."\n"'; > (результат в 1251).
да, я оказытся $STRING обрабатывал, а выводил $value. Спасибо.
подробно о проекте
Анализ криптографических сетевых...
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
[Perl] игнор регистра символов - Тига