ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Michael                              2:5020/400     01 Aug 2004  00:19:34
 To : Nikolay Pichtin
 Subject : Разделитель
 -------------------------------------------------------------------------------- 
 

 Sat Jul 31 2004 11:01, Nikolay Pichtin wrote to All:
 
  NP>                            Добрый день All !
 
  NP>  Делаю так:
  NP> Есть массив
  NP> 1|2|3
  NP> 4|5|6
 
  NP> надо 3 заменить на 7777 (частный случай).
 
  NP> foreach (@mass) {
  NP>   @array = split /\|/;
  NP>   if ($array[0] eq "1") {
 
 а что, тройка всегда идет за единицей?
 
  NP>     $array[2] = "7777";
  NP>   }
  NP>   #for (my $i=0;$i<$#array+1;$i++) {
  NP>   #  push (@Row,join("",$array[$i],"|"));
  NP>   #}
 
 push (@Row, join ("|", @array));
  
  NP>   push (@Row,"\n");
 
        ^^^^^^^^^^^^^^^^^^^^
 А это зачем?
 
  NP> }
 
 --- ifmail v.2.15dev5.3
  * Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Разделитель   Nikolay Pichtin   31 Jul 2004 11:01:39   Re: Разделитель   Dmitry Y. Labutin   31 Jul 2004 11:38:33   Разделитель   Justin Finch-Fletchley   31 Jul 2004 12:18:15   Разделитель   Michael   01 Aug 2004 00:19:34   Разделитель   Ivan Frolkov   01 Aug 2004 01:02:06