Программирование > Perl

Ну я намутил :)

(1/1)

Ilya:
Вот разбираюсь с 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 "
";

Вроде все работает, только кажется мне, что все это можно проделать намного проще :).
Ваши варианты?

Light Elf:
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 "
";

Ilya:
О! Спасибо!

Не подскажешь сайт с примерами (mySQL+Perl): вывод, поиск, добавление и т.п.

Light Elf:
Лучше всего купи книжку по "SQL", причем совсем не обязательно, чтоб она была толстой, чтоб вникнуть в суть + еще одну толстую, чтоб разобраться по самые гланды.
И прочитай доки по DBI.

Сайт: на этом вроде много скриптов собрано.

Навигация

[0] Главная страница сообщений