Сообщения

1

Perl / MySQL+Perl=HTML

« : 27 Марта 2003, 23:04:27 »

не нашел я там ответа на мой вопрос.

2

Perl / MySQL+Perl=HTML

« : 27 Марта 2003, 22:16:10 »

А может кто нормально расскажет?

3

Perl / MySQL+Perl=HTML

« : 27 Марта 2003, 17:08:20 »

#!/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 "\\n";
                $col++;
} else {
        print "\\n";
        $col = 1;
        $bg = 0;
                }
} else {
        if ($col == 1) { # начинаем строку таблицы
        print "\\n";
        $col = 2;
        $bg = 1;
} else {
        print "\\n";
        $col = 1;
        $bg = 0;
}
}
}
if ($bg == 1) {
print "\\n";
}
print "

",$ln->{\'date\'},"	",$ln->{\'meg\'},"
",$ln->{\'date\'},"	",$ln->{\'meg\'},"

\\n";
$result->finish();
$dbh->disconnect();

вот скрипт у меня такой. Его задача - вывести таблицу из двух колонок (MySQL) на html в таблицу такой же структуры. Работает но на половину. Объясните как расставлять циферки у $col и у $bg, что они означают и как их ставить?? А то уже замучался, никак не могу получить ныжный результат. Скрипт взял тут же на webscript.ru.

4

Perl / MySQL+Perl=HTML

« : 27 Марта 2003, 09:37:30 »

Как с помощью cgi вывести таблицу из MySQL в html? МОжет кто на словах объяснит или ссылку на доку кинет.