ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Nikolay Pichtin                      2:5056/30      06 Feb 2004  23:18:13
 To : All
 Subject : Проще сделать
 -------------------------------------------------------------------------------- 
 

 
  Есть файл
 1|2|3|4
 11|22|33|44
 
 Hадо изменить одно или несколько значений.
 Как проще сделать? Как упростить строку с push?
 
 open (D,"save.dat");
 @fil=<D>;
 close D;
 
 foreach (@fil) {
  @dat=split(/\|/);
  if ($dat[0] == 11) {
   $dat[2] = 99;
  }
  push (@new,"$dat[0]|$dat[1]|$dat[2]|$dat[3]");
 }
 open (D,">save.dat2");
 print D @new;
 close D;
 * Пешеход всегда прав. Пока жив.
 -- Hиколай
 ----------------------------------------------------------------------
 ---
  * Origin: Истина - это вовсе не то, что можно убедительно доказать (2:5056/30)
 
 

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

Тема:    Автор:    Дата:    Проще сделать   Nikolay Pichtin   06 Feb 2004 23:18:13   Проще сделать   Ilya Gavrilov   07 Feb 2004 13:42:14   Re: Проще сделать   Artem Chuprina   07 Feb 2004 16:50:18