|
|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Igor Gerdler 2:5020/400 29 Mar 2002 17:01:31 To : Sadretdinova Nelly Subject : Совет --------------------------------------------------------------------------------
Добрый день, уважаемая Hелли!
Чтобы в дальнейшем не мучить себя, нужно сразу писать так, чтобы в коде было
все понятно. Предлагаю изменить Ваш код:
if ( -e $file_form )
{
open(FILE, $file_form);
my $FileLine = '';
while ($FileLine = <FILE>)
{
foreach my $v (keys %VALUE)
{
$FileLine =~ s|\Q<!-- \E$v\Q -->\E|$VALUE{$v}|g;
}
print $FileLine;
}
close(FILE);
}
else
{
&error( "Файл $file_form не найден" );
}
Всего доброго!
Игорь Гердлер
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/6577e46e9a55.html, оценка из 5, голосов 10
|