 |
|
|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Andrey Sapozhnikov 2:5020/400 29 Mar 2002 19:31:04 To : Sadretdinova Nelly Subject : Re: <FILE> - uninitialized value ? --------------------------------------------------------------------------------
Sadretdinova Nelly wrote:
> AC> chunk - это не ругательство. А вот есть
> AC> подозрение, что у тебя либо print таки
> AC> вне цикла, либо $_ до момента print почему-то
> AC> успевает стать неопределенной.
> AC> Второе вероятнее. Покажи все-таки весь цикл.
> AC> Целиком.
>
> Показываю:
>
> print "content-type: text/html\n$cookie\n";
>
> if ( -e $file_form )
> {
> open(FILE, $file_form);
> while (<FILE>)
> {
> foreach my $v (keys %VALUE) { s/<!-- $v -->/$VALUE{$v}/g; }
> print;
> }
> close(FILE);
> }
> else { &error( "Файл $file_form не найден" ); }
>
> $file_form, $cookie, %VALUE - проинициализированы и заданы.
Очевидно в хэше %VALUE закралось неинициализорованное значие
и ошибка возникает все-таки не в print, а строчкой выше.
Андрей
P.S. У Вас не чешутся руки переписать этот код? Hевероятно
неэффективный и стилистически "кривой".
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/5284bffc11af.html, оценка из 5, голосов 10
|
|
|