ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : John Lepikhin                        2:5070/156     15 Sep 2002  11:10:33
 To : Sergey Juchkov
 Subject : Re: подсобите
 -------------------------------------------------------------------------------- 
 

 Мир Миру твоему, Сергей.
 
 !> On 11 Sep 02 19:02:02 +0900, Сергей -> All:
 
  SJ> есть
  SJ> $str = '/часть 6/часть 5/часть 4/часть 3/часть 2/часть 1/';
  SJ> или
  SJ> $str = '/часть 6/часть 5/часть 4/часть 3/часть 2/часть 1';
 
 @ch = reverse split '/', $str;
 
 Hо в данном случае $ch[0] будет пустым, данные начнутся с $ch[1].
 Чтобы от этого избавиться, добавляем фильтр на пустые элементы:
 
 @ch = reverse map {if(!$_){}else{$_}} split '/', $str;
 
 Получаем:
 
 print "$_: $ch[$_]\n" for 0..$#ch;
 
 # результат:
 0: часть 1
 1: часть 2
 2: часть 3
 3: часть 4
 4: часть 5
 5: часть 6
 -- 
 ... [болотный сисоп] {{злостный атеист и антикузнецовец}}
 --- Gnus/5.0808 (Gnus v5.8.8) XEmacs/21.1 (Cuyahoga Valley)
  * Origin: A poorly-installed InterNetNews site (2:5070/156.0)
 
 

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