ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Leonid Subbotin                      2:5007/16.1    18 Apr 2000  10:20:43
 To : Alexei Repiev
 Subject : проблемка
 -------------------------------------------------------------------------------- 
 

 
  AR> Суть такова: есть текстовый файл, в его сеpедину нужно воткнуть еще
  AR> одну стpоку, т.е. допустим между 10 и 11 стpоками воткнуть еще
  AR> одну. Соотв. вопpос - как это пpоще сделать?
 
 вот, полюбуйся на извращение:
 
 open(FILE, "myfile");
 @txt=<FILE>;
 close(FILE);
 
 $mystr="bla-bla-bla";
 
 @newtxt=splice @txt, 0, 10;
 push @newtxt, $mystr;
 push @newtxt, (splice @txt, 0, @txt);
 
 open(FILE, ">myfile");
 print FILE @newtxt;
 close(FILE);
                                                        Всегда с вами Sln !
 --- GoldED+/W32 1.1.4
  * Origin: Hу, царь, вздрогнули! (2:5007/16.1)
 
 

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

Тема:    Автор:    Дата:    проблемка   Alexei Repiev   14 Apr 2000 19:41:14   Re: проблемка   Dmitriy Goldobin   15 Apr 2000 12:38:30   Re: проблемка   Paul Kulchenko   18 Apr 2000 11:14:24   проблемка   Leonid Subbotin   18 Apr 2000 10:20:43