|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Gennadij Pastuhov 2:5036/26 28 Apr 2003 09:38:16 To : All Subject : template --------------------------------------------------------------------------------
Делаю так:
open(FILE, "<file");
my $text = <FILE>;
close FILE;
$text =~ s/AUTHOR/$author/m;
$text =~ s/TITLE/$title/m;
и т.д.
print $text выводит только самую первую строку файла. Что я делаю не так и как
правильно?
... Jonny wanna live
--- GoldED+/W32 1.1.5-021124 xenofont.chat.ru
* Origin: Zomby Station (2:5036/26)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/18463eaccd47.html, оценка из 5, голосов 10
|