|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Renat Araslanow 2:5011/119.1 29 Apr 2003 06:04:19 To : Gennadij Pastuhov Subject : template -------------------------------------------------------------------------------- Однажды 28 Apr 03 09:38, Gennadij Pastuhov писал All: GP> Есть некий текстовый файл - шаблон. В нём записаны некоторые слова GP> (AUTHOR, GP> TITLE, DATE). Мне нужно заменить их конкретными значениями. GP> Делаю так: GP> open(FILE, "<file"); my $text; { undef $/; $text = <FILE>; } GP> close FILE; GP> $text =~ s/AUTHOR/$author/g; ^ GP> $text =~ s/TITLE/$title/g; ^ GP> и т.д. GP> print $text выводит только самую первую строку файла. Что я делаю не так и GP> как правильно? perldoc perlvar --- [Преждевременная оптимизация -- корень всех зол Д. Кнут] * Origin: Чайник с программным управлениемЪ (2:5011/119.1) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/32783eadc251.html, оценка из 5, голосов 10
|