ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Oleg Kuznetsov                       2:5011/139     17 Apr 2003  23:39:20
 To : Renat Araslanow
 Subject : <без заголовка>
 -------------------------------------------------------------------------------- 
 

 
 17 апр 03 21:27, you wrote to me:
 
  OK>> будет правильнее
  OK>> ($num[$i], $station[$i], $name[$i]) = (split
  OK>> /,/,@plist[$i])[1,2,4];
 
  OK>> но какой цикл задать и как вывести это в темплет ?
 
  RA> for(@plist)
  RA> {
  RA>     ($num,$stat,$name)=@$_[1,2,4];
  RA>     write;
  RA> }
 
 Огромное спасибо, сделал
  $~ = EACH;
      for(@plist){
         ($num,$station,$name) = (split /,/,$_)[1,2,4];
         write;
 и получил что хотел
 Oleg
 ... Xmms play: Stuck Mojo - Reborn
 --- GoldED+/BSD 1.1.5 (FreeBSD 4.8-STABLE i386) !
  * Origin: 23:39  up  5:47, 4 users, load averages: 0,06 0,05 0,10 (2:5011/139)
 
 

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

Тема:    Автор:    Дата:    <без заголовка>   Oleg Kuznetsov   17 Apr 2003 19:02:38   <без заголовка>   Renat Araslanow   17 Apr 2003 21:27:03   <без заголовка>   Oleg Kuznetsov   17 Apr 2003 23:39:20