ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andrey Sapozhnikov                   2:5020/400     15 Jan 2002  21:46:47
 To : Saigo
 Subject : Re: обработка многострочно  го текста
 -------------------------------------------------------------------------------- 
 

 Saigo wrote:
 
 > требуется заменить все переводы строк в $info (и окружающие пробелы, если
 > они есть) на некие символы, ну, например, на <p>
 > сделать это надо для всех строк, кроме последней, т.е. в конец <p> не
 > ставится
 > 
 > например:
 > введено:
 > текст 1
 > текст 2
 > текст 3
 > 
 > текст 4
 > получилось : текст 1<p>текст 2<p>текст 3<p><p>текст 4
 
 $info =~ s/\s+$//;
 $info =~ s/[ \t]*(?:\r?\n|\r)[ \t]*/<p>/g;
 
 второй регексп учитывает, что разные браузеры любят разделять
 строки из textarea по-разному.
 
 Андрей
 
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    обработка многострочного текста   Saigo   15 Jan 2002 13:20:33   Re: обработка многострочного текста   Sutovsky Vladimir   15 Jan 2002 18:21:10   Re: обработка многострочно го текста   Andrey Sapozhnikov   15 Jan 2002 21:46:47