|
|
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) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/183100000a2b.html, оценка из 5, голосов 10
|