ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Saigo                                2:5020/400     03 Dec 2001  18:35:58
 To : All
 Subject : прошу помочь с отображением содержимого БД на html-странице
 -------------------------------------------------------------------------------- 
 

 
 добрый день
 
 есть такой код:
 
 #!/usr/bin/perl
 use DB_File;
 use Fcntl ':flock';
 use HTML::Template;
 use CGI;
 
 print ("Content-type: text/html\n\n");
 
 $template_file='news.tmpl';
 $template = new HTML::Template(filename => $template_file, die_on_bad_params
 
 => 0, loop_context_vars => 1);
 
 my %data;
 my $db=tie (%data,'DB_File',"news.dat",O_RDWR,0444);
 my $fd=$db->fd;
 open (DB_FH,"+<&=$fd");
 flock (DB_FH,LOCK_SH);
 
 %data = ( 1=>"010101:::this is title:::this is info" );
 my @news_loop = ();
 foreach $id (keys %data)
 {
  ($d,$t,$i)=split(':::',$data{$id});
  $tmp{date}=$d;
  $tmp{title}=$t;
  $tmp{info}=$i;
  push(@news_loop,{%tmp});
 }
 
 undef $db;
 untie %data;
 close(DB_FH);
 
 $template->param( news_list => \@news_loop );
 print $template->output();
 
 почему-то на экран ничего не выводится, причём именно в браузере
 при тестировании на локальной машине (под unix) всё работает правильно
 методом проб получила, что вывод на экран прекращается после строчки my
 $fd=$db->fd;
 подскажите, пожалуйста, в чём может быть дело и как исправить ситуацию?
 
 заранее огромное спасибо
 
 Евгения
 
 --- ifmail v.2.15dev5
  * Origin: Peterlink News System (2:5020/400)
 
 

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