|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : sklm 2:5020/400 28 May 2004 22:29:19
To : Andrei Protasovitski
Subject : Re: Первые/последние n слов.
--------------------------------------------------------------------------------
"Andrei Protasovitski" <andrei@siliconmaterials.com> wrote in message
news:2hon94Ffh5mmU1@uni-berlin.de...
> Доброго здоровья!
>
> Как проще всего выделить из строки первые/последние n слов?
Можно, например, так. Без претензий на эффективность и красоту :-), но зато
понятно и более-менее работает :-) Выводит 3 первых и 3 последних слова
(если, конечно, столько наберётся).
$N = 3;
$_ = 'aaa bbb ccc ddd eee fff';
@words = split;
@First_N_Words = @words[0..$N-1];
print "@First_N_Words\n";
@Last_N_Words = @words[-$N..-1];
print "@Last_N_Words\n";
--- ifmail v.2.15dev5.3
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Первые/последние n слов. 
