#!/usr/bin/perl -w
use DBI;
print "Content-type:text/html\\n\\n";
my $dbh = DBI->connect("DBI:mysql:database=trafic;host=localhost","root", "") || die $DBI::errstr;
my $result = $dbh->prepare("SELECT * FROM traf_out");
$result->execute();
$bg == 1;
$col == 1;
print "
while (my $ln = $result->fetchrow_hashref()){
if ($bg = 1) {
if ($col = 1) {
print "
",$ln->{\'date\'}," | \\n";
$col++;
} else {
print "",$ln->{\'meg\'}," |
\\n";
$col = 1;
$bg = 0;
}
} else {
if ($col == 1) { # начинаем строку таблицы
print "
",$ln->{\'date\'}," | \\n";
$col = 2;
$bg = 1;
} else {
print "",$ln->{\'meg\'}," |
\\n";
$col = 1;
$bg = 0;
}
}
}
if ($bg == 1) {
print "
| \\n";
}
print "
\\n";
$result->finish();
$dbh->disconnect();
вот скрипт у меня такой. Его задача - вывести таблицу из двух колонок (MySQL) на html в таблицу такой же структуры. Работает но на половину. Объясните как расставлять циферки у $col и у $bg, что они означают и как их ставить?? А то уже замучался, никак не могу получить ныжный результат. Скрипт взял тут же на webscript.ru.