ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Dmitry Lediaev                       2:5020/400     09 Jul 2003  14:20:37
 To : Viktor Boyko
 Subject : Re: добавка
 -------------------------------------------------------------------------------- 
 

 
 Viktor Boyko пишет в сообщении <1057670686@p3.f2121.n5030.z2.FIDOnet.ftn>
 ...
 
 >=-=-=-=-=-=-=-=-=-=-[Доброго времени суток, All !]-=-=-=-=-=-=-=-=-=-=
 >
 >    В перле я пока чайник, поэтому просьба не отсылать rtfm! или faq!, а
 >оставить такие советы при себе..
 >
 >    Такой вопрос: можно ли на перле сохранение в файл сделать не
 
 добавлением к
 
 >концу, а добавлением к самому началу документа(без затирки данных файла)..
 В файле $file в самом начале помести "<!--top-->" (без кавычек ессесно). И
 теперь новый текст будет записываться в файл $file сразу после <!--top-->
 при этом старые сообщения тоже будут оставаться в файле.
 
 # Запись в файл
 open (FILE, "$file") || die "Can't open $file: $!\n";
 @LINES=<FILE>;
 close(FILE);
 $SIZE=@LINES;
 
 open (FILE, ">$file") || die "Can't open $file: $!\n";
 for ($i = 0; $i <= $SIZE; $i++)
 {
  $_=$LINES[$i];
 
  if (/<!--top-->/)
  {
   print FILE "<!--top-->\n";
   print FILE "text text text любой текст";
  }
  else
  {
   print FILE $_;
  }
 }
 close (FILE);
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

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