Пример работы с MySQL из Perl средствами DBI

copy to clipboardподсветка кода

1. #!/usr/bin/perl
4. use DBI;
7. my $host = “localhost”; # MySQL-сервер
8. my $port = “3306″; # порт, на который открываем соединение
9. my $user = “root”; # имя пользователя
10. my $pass = “”; # пароль
11. my $db = “test”; # имя базы данных
13. # соединяемся с базой данных
14. $dbh = DBI->connect(“DBI:mysql:$db:$host:$port”, $user,$pass) or die $DBI::errstr ;
16. # готовим запрос к таблице simtable
17. $sth = $dbh->prepare(“select * from simtable ”) or die $Mysql::db_errstr;
19. # исполняем запрос
20. $sth->execute;
22. print “Content-type: text/html\n\n”;
24. #в цикле читая в простой массив обрабатываем все строки таблицы
25. #и печатаем, обращаясь к элементам по индексам:
27. while (@row = $sth->fetchrow_array) {
28. print “Name: $row[0]\n”;
29. print “Phone: $row[1]\n ”;
30. print “AGE: $row[2]\n ”;
31. print “URL: $row[3]\n ”
32. }
34. # я намеренно опустил генерацию html таблицы и её разукрашивание средствами css.
35. # здесь для примера просто вывожу содержимое таблицы просто как есть.
37. $sth->finish; #освобождаем память
38. $dbh->disconnect; # закрываем соединение