Вот разбираюсь с mySQL.
Долго парился, как вывести в браузер содержимое базы, ну и намутил:
use DBI;
my $db = DBI->connect (\'DBI:mysql:mytest:localhost\',\'root\',\'\');
my $query = ("SELECT * FROM testtable");
my $output = $db->prepare($query);
$output->execute;
my $rows = $output->rows;
while ($rows > 0)
{
($id, $name, $phone) = $output->fetchrow_array;
$string = join (\'::\',($id, $name, $phone));
push @result, $string;
$rows = $rows - 1;
}
print "Content-type:text/html
";
for (@result)
{
($id,$name,$phone) = split (/\\::/, $_);
print "| $id | $name | $phone |
";
}
print "
";
Вроде все работает, только кажется мне, что все это можно проделать намного проще 
.
Ваши варианты?
Записан
« Ответ #1 : 11 Июня 2001, 15:58:51 »
use DBI;
my $db = DBI->connect (\'DBI:mysql:mytest:localhost\',\'root\',\'\');
my $query = ("SELECT * FROM testtable");
my $output = $db->prepare($query);
$output->execute;
print "Content-type:text/html
";
while (($id, $name, $phone) = $output->fetchrow_array){
print "| $id | $name | $phone |
";
}
print "
";
Записан
С уважением,
Light Elf
« Ответ #2 : 11 Июня 2001, 17:41:53 »
О! Спасибо!
Не подскажешь сайт с примерами (mySQL+Perl): вывод, поиск, добавление и т.п.
Записан
« Ответ #3 : 11 Июня 2001, 20:25:31 »
Лучше всего купи книжку по "SQL", причем совсем не обязательно, чтоб она была толстой, чтоб вникнуть в суть + еще одну толстую, чтоб разобраться по самые гланды.
И прочитай доки по DBI.
Сайт: на этом вроде много скриптов собрано.
Записан
С уважением,
Light Elf
Тема: Ну я намутил :) (Прочитано 4678 раз)
