|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Andrei Protasovitski 2:5020/400 01 Jun 2004 10:43:04
To : sklm
Subject : Re: Первые/последние n слов.
--------------------------------------------------------------------------------
Доброго здоровья!
sklm пишет:
>>Доброго здоровья!
>>Как проще всего выделить из строки первые/последние 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";
Это и ежу понятно. Я бы хотел без доп. массивов.
--
Andrei Protasovitski mailto:andrei()siliconmaterials.com
JS "KamSil" http://www.siliconmaterials.com/
137, Brestskaya str., ICQ: 75725244
225710, Pinsk, Belarus
--- ifmail v.2.15dev5.3
* Origin: Protasonic (r) Soft (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
