Привет всем.
Для тех, кто интересуется рег. выражениями: вышла моя книжка "Профессиональная работа в Perl. Регулярные выражения".
Я в ней глубоко и подробно разбираю этот вопрос. Юникод не рассматриваю. Вот один мой пример из этой книги:
# Заменить во всем тексте все символы табуляции соответствующим числом пробелов.
$_=<
a\\tПервая строка\\t.
Вторая строка.
\\t\\tТретья строка.
Четвертая строка.
EOF
my ($offs,$tmp);
s/(?:^(?{ $offs=0 }))?
([^\\t\\n]*)
\\t
/$tmp=$offs+length $1;
$offs+=$tmp+(8-$tmp %
;
$1.\' \' x (8-$tmp %
/egmx;
print $_;
На books.ru эта книжка стоит 225 р., я могу продать из своих авторских экз. за 200 р. вместе с пересылкой
(WMR, Яндекс-деньги, сберкасса). Пишите на wait4sleep [] rambler . ru
