|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Sergey Gernichenko 2:5079/49.18 08 Feb 2005 12:38:28 To : Nikolay Pichtin Subject : Re: Кавычки -------------------------------------------------------------------------------- В понедельник, 07 февраля 2005 года, в 22:18, ты писал(а) всем: NP> Есть такие строчки NP> "Текст первый" NP> "Текст второй" с кавычками" NP> "Текст "Третий" с внутренними кавычками" NP> "Текст четвертый "С концевой кавычкой" NP> Hадо удалить начальные и конечные кавычки, но NP> не удалять начальную, если она необходима (вторая строка), NP> и конечную в четвёртом примере. Попробуй так: s/^\"(.*)\"/$1/; s/ \"(.*)$/ \"$1\"/; s/^(.*)\" /\"$1\" /; Может, и одним регеспом можно, думать нЕкогда... До скорых встреч, *Nikolay* С уважением, *Sergey*. --- WinNT 5.1.2600-Service_Pack_2 i1586 Eng, AS Perl5.6.1, Borland C++ v5.02 * Origin: Работать надо, пока ещё не лень (2:5079/49.18) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/343542085f7a.html, оценка из 5, голосов 10
|