Forum Webscript.Ru

Программирование => Регулярные выражения => Тема начата: Serg31416 от 28 Февраля 2008, 09:20:03

Название: Книжка по gegexp
Отправлено: Serg31416 от 28 Февраля 2008, 09:20:03
Привет всем.

 Для тех, кто интересуется рег. выражениями: вышла моя книжка "Профессиональная работа в Perl. Регулярные выражения".
Я в ней глубоко и подробно разбираю этот вопрос. Юникод не рассматриваю. Вот один мой пример из этой книги:

# Заменить во всем тексте все символы табуляции соответствующим числом пробелов.

$_=<a\\tПервая строка\\t.
Вторая строка.
\\t\\tТретья строка.
Четвертая строка.
EOF

my ($offs,$tmp);

s/(?:^(?{ $offs=0 }))?
  ([^\\t\\n]*)
  \\t
 /$tmp=$offs+length $1;
  $offs+=$tmp+(8-$tmp % 8);
  $1.\' \' x (8-$tmp % 8)/egmx;

print $_;
 
 
 На books.ru эта книжка стоит 225 р., я могу продать из своих авторских экз. за 200 р. вместе с пересылкой
(WMR, Яндекс-деньги, сберкасса). Пишите на wait4sleep [] rambler . ru
Название: Книжка по gegexp
Отправлено: arto от 28 Февраля 2008, 09:50:10
а чем она лучше фридла?
Название: Книжка по gegexp
Отправлено: Serg31416 от 04 Марта 2008, 12:53:40
Более подробно, нет ошибок, исправлены его ошибки.
Название: Книжка по gegexp
Отправлено: arto от 04 Марта 2008, 14:23:17
"нет ошибок" -- увижу в магазине, проверю :)
Название: Книжка по gegexp
Отправлено: arto от 22 Марта 2008, 01:31:29
посмотрел в магазине книгу, мельком (не было времени долго смотреть).
резюме -- фридл лучше.