Главная страница


ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Jahor Miadzviedziew                  2:450/217      29 Apr 2003  16:35:12
 To : Gennadij Pastuhov
 Subject : Re: template
 -------------------------------------------------------------------------------- 
 
  GP> Есть некий текстовый файл - шаблон. В нём записаны некоторые слова
  GP> (AUTHOR,
  GP> TITLE, DATE). Мне нужно заменить их конкретными значениями.
  GP> Делаю так:
  GP> open(FILE, "<file");
  GP> my $text = <FILE>;
  GP> close FILE;
  GP> $text =~ s/AUTHOR/$author/m;
  GP> $text =~ s/TITLE/$title/m;
  GP> и т.д.
  GP> print $text выводит только самую первую строку файла. Что я делаю не
  GP> так и как
  GP> правильно?
 
 my $text = <FILE> считывает только первую строку. можно, например,
 сделать @lines = <FILE>, тогда в массиве @lines будет весь файл
 построчно. можно сделать { $/ = undef; $text = <FILE>; } (кажется так),
 и считать весь файл в $text целиком. еще можно вариантов придумать =)
 
 -- 
 corvus corax @home || write me: corvus_corax(at)lame.user.org
 GPG Fingerprint = 7954 5713 19D0 2713 A3B0 9B79 6F8E 4C25 E279 A165
 --- tin/1.5.9-20010723 ("Chord of Souls") (UNIX) (Linux/2.4.13-alt1-up (i686))
  * Origin: corvus corax' nest (2:450/217)
 
 

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

 Тема:    Автор:    Дата:  
 template   Gennadij Pastuhov   28 Apr 2003 09:38:16 
 Re: template   Konstantin Tokar   29 Apr 2003 03:29:45 
 template   Renat Araslanow   29 Apr 2003 06:04:19 
 template   Gennadij Pastuhov   29 Apr 2003 14:18:04 
 Re: template   Konstantin Tokar   30 Apr 2003 01:26:29 
 Re: template   Artem Chuprina   30 Apr 2003 15:40:11 
 template   Renat Araslanow   30 Apr 2003 23:08:10 
 template   Michael Spector   11 Jun 2003 19:52:20 
 template   Michael Spector   11 Jun 2003 20:34:51 
 Re: template   Artem Chuprina   12 Jun 2003 11:53:40 
 Re: template   Jahor Miadzviedziew   29 Apr 2003 16:35:12 
 template   Alexander Lunkov   29 Apr 2003 17:28:09 
Архивное /ru.perl/183100000a2b.html, оценка 2 из 5, голосов 10
Яндекс.Метрика
Valid HTML 4.01 Transitional