ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artur Penttinen                      2:5020/400     12 Jul 2000  09:43:48
 To : All
 Subject : Re: <none>
 -------------------------------------------------------------------------------- 
 

 On Tue, 11 Jul 2000, Dan Ivanov wrote:
 
 > From: Dan Ivanov <Dan.Ivanov@p4.f883.n5030.z2.fidonet.org>
 > Newsgroups: fido7.ru.perl
 > X-Comment-To: All
 > Subject: <none>
 > Date: Tue, 11 Jul 2000 22:43:48 +0400
 > Organization: Чудес не бывает. Hикогда.
 > 
 > Привет, All!
 > 
 > Есть строка, результат того, что было введено в форме в поле типа TEXTAREA -
 > т.е. строка содержит символы "\n" - по факту это набор нескольких строк,
 > слитых в одну с разделителем "\n". Hужно, чтобы начальные и конечные пробелы в
 > каждой такой строке заменялись на   (т.е. фактически в этой большой
 > об'единенной строке должны заменяться пробелы, следующие неспосредственно до
 > каждого символа "\n" и  сразу же после него. Как будет выглядеть соотв.
 > регулярное выражение? Пробовал с помощью split(/\n/, @string) разделить
 > большую строку на отдельные и работать уже с конечными строками, что не
 > представляло бы труда, но проблема в том, что split, по крайней мере его
 > реализация в ActiveState Perl 5.6.0, удаляет начальные и конечные пробелы в
 > результирующих строках, и заменять уже нечего, что  меня не устраивает. Что
 > посоветуете? Можно конечно обрабатывать строку посимвольно, но это гемморойно 
 > и некрасиво. Подскажите лучше, какое тут будет регулярное выражение.
 
   1. split (/(\n)/;
   2. s/\n(\s+)/\n . " " x length($1)/ge;
 
   disclaimer: не тестировал, но мысль понятна.
 
            WBW, Artur
 
 -- 
 Русская речь без мата превращается в доклад...
 
 --- ifmail v.2.15dev5
  * Origin: Gamma NNTP server Moscow Russia (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    <без заголовка>   Dan Ivanov   11 Jul 2000 23:43:48   Re: <none>   Artur Penttinen   12 Jul 2000 09:43:48   <none>   Alexander Shulgin   12 Jul 2000 16:57:25   Re: <none>   Artur Penttinen   13 Jul 2000 12:25:10   <без заголовка>   Alexander Shulgin   12 Jul 2000 09:55:04   <без заголовка>   Anthony Dragunov   12 Jul 2000 12:38:15   Re: <none>   Alex Ostapov   12 Jul 2000 12:42:12   Re: <none>   Artem Chuprina   12 Jul 2000 12:13:31   Re: <none>   Paul Kulchenko   12 Jul 2000 20:48:32