|
|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Sadretdinova Nelly 2:5020/400 29 Mar 2002 19:47:38 To : Igor Gerdler Subject : Re: Совет -------------------------------------------------------------------------------- s.su> From: "Sadretdinova Nelly" <nelly@ufanet.ru> > Чтобы в дальнейшем не мучить себя, нужно сразу писать так, чтобы в коде было > все понятно. Предлагаю изменить Ваш код: > > 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: OOO BIS (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/779545827592.html, оценка из 5, голосов 10
|