Нужно чтобы после открытия страницы spisok.html в нее в определенное место выводилось то что хранится в массиве @R. В HTML место уже выделено. Но данные не выводятся, хотя страница открывается.
#!/usr/bin/perl
use lib "../lib";
use SysFunc;
use Templates;
use DBI;
use data;
$database=\'DATABASE\';
$user=\'root\';
$password=\'\';
print "Content-type: text/html\\n\\n";
print "";
$dbh=DBI->connect("DBI:mysql:${database}", $user, $password)
or die "Wrong password\\n";
$query="SELECT * FROM users";
$sth=$dbh->prepare($query);
$sth->execute;
while (@R=$sth->fetchrow_array)
{
print "$R[0] $R[1] $R[2] $R[3] $R[4] $R[5] $R[6] $R[7] $R[8]
";
}
$sth->finish;
$dbh->disconnect;
Templates::show_page("../html/spisok.html",$data);