ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Nikolay Pichtin                      2:5056/30      31 Jul 2004  11:01:39
 To : All
 Subject : Разделитель
 -------------------------------------------------------------------------------- 
 

 
  Делаю так:
 Есть массив
 1|2|3
 4|5|6
 
 надо 3 заменить на 7777 (частный случай).
 
 foreach (@mass) {
   @array = split /\|/;
   if ($array[0] eq "1") {
     $array[2] = "7777";
   }
   for (my $i=0;$i<$#array+1;$i++) {
     push (@Row,join("",$array[$i],"|"));
   }
   push (@Row,"\n");
 }
 
   Hа выходе получаю @Row
   1|2|777|
   4|5|6|
 
  Hо дело в том, что мне не надо в конце |
  Как это побороть?
 * Ад вовсе не хуже рая, просто нужно в нем родиться.
 -- Hиколай
 ----------------------------------------------------------------------
 ---
  * Origin: Истина - это вовсе не то, что можно убедительно доказать (2:5056/30)
 
 

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

Тема:    Автор:    Дата:    Разделитель   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