Автор Тема: MySQL+Perl=HTML  (Прочитано 3929 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн werf

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 4
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
MySQL+Perl=HTML
« : 27 Марта 2003, 09:37:30 »
Как с помощью cgi вывести таблицу из MySQL в html? МОжет кто на словах объяснит или ссылку на доку кинет.
« Последнее редактирование: 27 Марта 2003, 09:46:37 от werf »
Компьютеры, периферия, конфликтующие.

Оффлайн Chs

  • Perl программер
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 1108
  • +0/-0
  • 2
    • Просмотр профиля
    • http://chs.now.at/
MySQL+Perl=HTML
« Ответ #1 : 27 Марта 2003, 10:12:29 »
perldoc DBI
perldoc -f print :)
2B OR NOT 2B = FF

Оффлайн werf

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 4
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
MySQL+Perl=HTML
« Ответ #2 : 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.
Компьютеры, периферия, конфликтующие.

Оффлайн Chs

  • Perl программер
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 1108
  • +0/-0
  • 2
    • Просмотр профиля
    • http://chs.now.at/
MySQL+Perl=HTML
« Ответ #3 : 27 Марта 2003, 21:53:37 »
perldoc perlop
2B OR NOT 2B = FF

Оффлайн werf

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 4
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
MySQL+Perl=HTML
« Ответ #4 : 27 Марта 2003, 22:16:10 »
А может кто нормально расскажет?
Компьютеры, периферия, конфликтующие.

Оффлайн Xander

  • санитар леса
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 1780
  • +0/-0
  • 2
    • Просмотр профиля
MySQL+Perl=HTML
« Ответ #5 : 27 Марта 2003, 22:24:22 »
[w]PerlFaq[/w]
•••Jah\'d never let us down!•••

Оффлайн Chs

  • Perl программер
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 1108
  • +0/-0
  • 2
    • Просмотр профиля
    • http://chs.now.at/
MySQL+Perl=HTML
« Ответ #6 : 27 Марта 2003, 22:36:52 »
Цитировать
А может кто нормально расскажет?

А чем perldoc perlop не нормально? Англицким по бэкграунду, подробненько и с примерами.
2B OR NOT 2B = FF

Оффлайн werf

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 4
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
MySQL+Perl=HTML
« Ответ #7 : 27 Марта 2003, 23:04:27 »
не нашел я там ответа на мой вопрос.
Компьютеры, периферия, конфликтующие.

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28