LINUX.ORG.RU

Эффективная реализация экранирования в Perl


0

0

Есть строка $str в которой могут быть символы с кодами от 0 до 127.
Требуется - для символов с кодами от 00h до 1Fh сделать замену
<символ с кодом NNh> --> \NN
Естественно слэш нужно тоже экранировать - \\

Т.к. реализовать нужно на Perl'e и эффективно - встаёт задача,
какими средствами пользоваться?

Возможно регулярные выражения? Но насколько они эффективны?
Не берусь судить не зная их внутренней реализации!

Re: Эффективная реализация экранирования в Perl

Не по основной теме -- реализация regexp в perl очень эффективна.
По основной -- самый просто вариант
s/\\/\\\\/g;
s/([\x0-\x1F])/"\\".ord ($1)/ge;

Zulu ★★☆☆ ()

Re: Эффективная реализация экранирования в Perl

>Не по основной теме -- реализация regexp в perl очень эффективна. 
>По основной -- самый просто вариант 
>s/\\/\\\\/g; 
>s/([\x0-\x1F])/"\\".ord ($1)/ge;

Т.е. эта реализация будет работать не медленнее чем 
просто посимвольный проход по строке с заменой (если это необходимо)?

Регулярные выражения покрывают огромный класс множеств и поэтому
(именно из-за обобщённости) есть сомнения, что для каждого 
КОНКРЕТНОГО частного случая они эффективнее!

Krivenok_Dmitry ()
Ответ на: Re: Эффективная реализация экранирования в Perl от Krivenok_Dmitry

Re: Эффективная реализация экранирования в Perl

> Т.е. эта реализация будет работать не медленнее чем
> просто посимвольный проход по строке с заменой (если это необходимо)?

Если скорость - главная цель, то вопрос поставлен неверно с самого
начала. Пиши на С.
Если скорость - главная цель именно в это конкретной подзадачке
"экранирования" - сделай XS модуль на C и вызывай из Perl.
Если сомневаешься - делай benchmarking, че попусту трепаться :-)

Onanim ()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.