|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Dmitry Smolin 2:5020/949 07 Dec 2001 19:39:16
To : Michael A. Ivanovsky
Subject : Выбрать N слов в начале или в конце строки
--------------------------------------------------------------------------------
Once, 07 Dec 2001 14:09, Michael A. Ivanovsky wrote to Artem Chuprina:
MI> В общем случае - N слов. Строки произвольной длины (большой). Слово -
MI> в смысле набор символов между пробелами, включая русские, латинские
MI> символы и цифры.
Где-то так:
my $s = "А можно задачу как следует поставить?";
my $n = 3;
my $words = '(' . ( join '\s+', map { '\S+' } ( 1..$n )) . ')';
my ( $from_start ) = $s =~ /^\s*$words/o;
my ( $from_end ) = $s =~ /$words\s*$/o;
Take care.
--- skanking to the rhythm of the music by my side
* Origin: Some lines just fit the situation (2:5020/949)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
