|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Saigo 2:5020/400 03 Dec 2001 18:44:09
To : Konstantin Stupnik {}
Subject : Re: прошу помочь с DB_File
--------------------------------------------------------------------------------
> И так и сяк над ним бился - не работает :-\
> use Fcntl ':flock';
спасибо
теперь следующая проблема:
пишу так:
#!/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)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
