ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andrew Alakozow                      2:5061/6       01 Jun 2004  11:59:02
 To : Andrei Protasovitski
 Subject : Re: Первые/последние n слов.
 -------------------------------------------------------------------------------- 
 

 AP> Я бы хотел без доп. массивов.
 
 while ($str =~ /\b(\w+)\b/g){
 {
 
   push (@first, $1) unless @first == 3;
 
   push (@last, $1);
   shift (@last) if @last > 3;
 
 }
 
 aa29
 --- Microsoft Outlook Express 6.00.2720.3000
  * Origin: Life In The Dark (2:5061/6)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор