|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Oleg Eterevsky 2:5030/924 02 Feb 2021 13:19:33
To : Nikolay Pichtin
Subject : Hесколько слов
--------------------------------------------------------------------------------
The letter Nikolay Pichtin --> All (02 Feb 02 09:07):
NP> Есть $str="Длинная строка с некоторым длинным текстом";
NP> Hеобходимо получить несколько слов с начала строки, скажем 4.
NP> Как это реализовать не используя циклов, а только регсеп?
$string = /^(\w+\s+\w+\s+\w+\s+\w+)/;
После этого в $1 -- искомые первые 4 слова.
С уважением, Олег.
. ... Лучше чувствовать затылком ледяное дыхание зимы, чем горячее дыхание
. разъяренного слона.
--- GoldED+/W32 1.1.5-20011130
* Origin: Don't delay, write today! (2:5030/924)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
