regesp русские буквы в 16-ричный код

[Atreides]

Подскажите, как заменить в строке все русские буквы на их шестнадцатеричные коды вида %xx  то есть чтобы строка "абв" выглядела как "%E0%E1%E2". Заранее спасибо, кого не заломает ответить

[Atreides]

Фу ты, даже "regexp" не могу нормально написать...

[ondr]

попробуй написать сам, я помогу

да, и поясни, пожалуйста, какие критерии русских букв?

[Atreides]

Русские буквы выхватываю так: $string =~ s/[\\xE0-\\xFF]?/.../g; вопрос - что написать в замену?

[ondr]

ага, хорошо

вариант 1

Код: [Выделить]


$string =~ s/([\\xE0-\\xFF])/sprintf( "%%%02X", $1 )/eg;


вариант2 (более быстрый)

Код: [Выделить]


# предварительно создадим массив следующего содержания
for( 0 .. 255 ) {
  $chr2hex{ chr() } = sprintf( "%%%02X", $_ );
}
# и упрощаем рег. выражение
$string =~ s/([\\xE0-\\xFF])/$chr2hex{$1}/g;


[Atreides]

ок, написал.

#!/usr/bin/perl
$string = "абвгдеёжзийклмнопрстуфхцчшщъыьэюя";
$string =~ s/([\\xE0-\\xFF])/sprintf( "%%%02X", $1 )/eg;
print $string;

результат:
%00%00%00%00%00%00ё%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00

где я торможу?

[Atreides]

Фух, домучал наконец. Вот это вроде работает:
$string =~ s/([\\xA8,\\xB8,\\xC0-\\xFF])/sprintf("%%%02X", ord($1))/eg;

[ondr]

да, прошу прощения, ord забыл : )