http referer c yandex

Ну как-то так:

foreach $text (@lines) {

$text =~ tr/+/ /;

if ($text =~/yandpage/) {

$text =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$text =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$text =~ tr/АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя/юабцдефгхийклмнопярстужвьызшэщчъЮАБЦДЕФГХИЙКЛМНОПЯРСТУЖВЬЫЗШЭЩЧЪ/;

} else {

$text =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

}

print "$text";

}

что-то вроде этого...

Вот это что?

%25C1%25CD%25C1

.. то что на верху, это вроде юникод, только представлен он как-то странно, в виде 2 байт %25C1. так?

и тогда, зачем 2 раза подряд искать %xx?

$text =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$text =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

может так ??:

$text =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$text =~ s/%[a-fA-F0-9][a-fA-F0-9]([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

PS: спасибо за пример, ценный.

не знаю, 100 лет этим не занималась - привела кусок из скрипта, который когда-то у меня ключ.слова из лога грепал. Тогда оно работало как надо...

А можно то же самое для Google?

А то, по причине Нового года,

ни найти, ни сообразить... :)

как люблю я этот празник .. :))

а если по делу, то еще от праздников не отошел, скоро кину пояснение всего этого дела кому надо ... уже во всем разобрался ..

Думаю, что лучше это делать так...

$text=~s/%([a-fA-F0-9]{2,4})/pack("C", hex($1))/eg;

$text=~tr/+/ /;

if($text=~/yandpage/){

$text=~tr/АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя/юабцдефгхийклмнопярстужвьызшэщчъЮАБЦДЕФГХИЙКЛМНОПЯРСТУЖВЬЫЗШЭЩЧЪ/;

}