PERL не выводит информация в новую HTML-страницу.

[Cruiser72]

Нужно чтобы после открытия страницы 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);

[ondr]

1. Подключись каким нибудь клиентом к бд (используя такие же параметры подключения какие используются в скрипте) и введи "SELECT * FROM users". Что выведет?
Если то что нужно, то

2. Напиши предпоследней строкой $data = \'Test\';
Если в нужном месте появится слово "Test", то

3. Замени
print "$R[0] $R[1]....
на это
$data .= "$R[0] $R[1]....

[Cruiser72]

Пробовал....не выводит ни хрена.