Forum Webscript.Ru
Программирование => Perl => Тема начата: Ilya от 10 Июня 2001, 15:50:38
-
Вот разбираюсь с 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 "
";
Вроде все работает, только кажется мне, что все это можно проделать намного проще :).
Ваши варианты?
-
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 "
";
-
О! Спасибо!
Не подскажешь сайт с примерами (mySQL+Perl): вывод, поиск, добавление и т.п.
-
Лучше всего купи книжку по "SQL", причем совсем не обязательно, чтоб она была толстой, чтоб вникнуть в суть + еще одну толстую, чтоб разобраться по самые гланды.
И прочитай доки по DBI.
Сайт: на этом вроде много скриптов собрано.