ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Konstantin Tokar                     2:5020/400     29 Mar 2002  20:20:34
 To : Sadretdinova Nelly
 Subject : Re: Совет
 -------------------------------------------------------------------------------- 
 

 s.su> <a822a8$4or$1@www.ufanet.ru>
 
 From: Konstantin Tokar <tokar@apmsun.mpei.ac.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 не найден" );
 > > }
 > >
 > Спасибо, собственно и код и так понятен :-) однако же ошибка и в таком
 > варианте осталась :-( к сожалению....
 
 Попробовать изменить так
 if (open(FILE, "<$file_form")){
   my $FileLine = '';
   while ($FileLine = <FILE>)
   {
     foreach my $v (keys %VALUE)
     {
   print "$v => $VALUE{$v}\n";
 #      $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)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    <FILE> - uninitialized value ?   Sadretdinova Nelly   28 Mar 2002 21:35:22   Re: <FILE> - uninitialized value ?   Ilya Anfimov   28 Mar 2002 22:40:20   Re: <FILE> - uninitialized value ?   Sadretdinova Nelly   29 Mar 2002 13:12:35   Re: <FILE> - uninitialized value ?   Alexander V. Wolf   29 Mar 2002 10:37:58   Re: <FILE> - uninitialized value ?   Sadretdinova Nelly   29 Mar 2002 10:54:23   Re: <FILE> - uninitialized value ?   Alexander V. Wolf   29 Mar 2002 18:01:21   Re: <FILE> - uninitialized value ?   Artem Chuprina   29 Mar 2002 14:10:23   Re: <FILE> - uninitialized value ?   Sadretdinova Nelly   29 Mar 2002 15:57:41   Re: <FILE> - uninitialized value ?   Artem Chuprina   29 Mar 2002 16:10:02   Re: <FILE> - uninitialized value ?   Sadretdinova Nelly   29 Mar 2002 16:44:59   Совет   Igor Gerdler   29 Mar 2002 17:01:31   Re: Совет   Sadretdinova Nelly   29 Mar 2002 19:47:38   Re: Совет   Sergey Gernichenko   31 Mar 2002 23:12:14   Re: Совет   Konstantin Tokar   29 Mar 2002 20:20:34   Re: <FILE> - uninitialized value ?   Andrey Sapozhnikov   29 Mar 2002 19:31:04   Hесколько вопросов к Андрею   Igor Gerdler   29 Mar 2002 20:43:07   Re: Hесколько вопросов к Андрею   Victor Wagner   29 Mar 2002 21:28:08   Re: Hесколько вопросов к Ан дрею   Andrey Sapozhnikov   29 Mar 2002 21:50:43   Re: Hесколько вопросов к Андрею   Konstantin Tokar   29 Mar 2002 21:58:57   Re: Hесколько вопросов к Ан дрею   Andrey Sapozhnikov   29 Mar 2002 22:21:29   Re: Hесколько вопросов к Андрею   Konstantin Tokar   29 Mar 2002 22:54:13   Re: Hесколько вопросов к Андрею   Andrey Sapozhnikov   30 Mar 2002 04:08:46   Re: Hесколько вопросов к Андрею   Konstantin Tokar   30 Mar 2002 21:05:04   Re: Hесколько вопросов к Ан дрею   Victor Wagner   30 Mar 2002 00:23:06   Re: Hесколько вопросов к Ан дрею   Andrey Sapozhnikov   30 Mar 2002 03:11:30   Re: Hесколько вопросов к Ан дрею   Victor Wagner   30 Mar 2002 12:34:33   Re: Hесколько вопросов к Ан дрею   Vladimir Podgorny   31 Mar 2002 20:46:32   Re: Hесколько вопросов к Ан дрею   Nikolay Pichtin   30 Mar 2002 02:45:30   Re: <FILE> - uninitialized value ?   Sadretdinova Nelly   29 Mar 2002 22:29:42   Re: <FILE> - uninitialized value ?   Konstantin Tokar   29 Mar 2002 23:02:24   Re: <FILE> - uninitialized value ?   Sadretdinova Nelly   30 Mar 2002 11:21:02   Re: <FILE> - uninitialized value ?   Andrey Sapozhnikov   30 Mar 2002 03:21:44   Re: <FILE> - uninitialized value ?   Nikolay Pichtin   29 Mar 2002 21:38:30