mysql - 如何在 Perl 中读取 MySQL 数据库

Question

我是 Perl 的初学者。我现在有一个正常工作的 SQL 语句，但我想使用 Perl 执行 SQL 并将结果输出到文件。哪位高手能提供一个非常基本的模板（从连接数据库开始）？

Answer 1

use DBI;
my $DBH=DBI->connect("DBI:mysql:db:host","login","pass");
my $sth=$DBH->prepare("query");
$sth->execute();
while (my @row=$sth->fetchrow_array)
{
  print $row[0]."\n";
}
$sth->finish;

Answer 2

这是一个很好的教程（其中之一）：

• http://perl.about.com/od/perltutorials/a/perlmysql.htm

它有这个例子：

use DBI;
 $dbh = DBI->connect('dbi:mysql:perltest','root','password')
   or die "Connection Error: $DBI::errstr\n";
 $sql = "select * from samples";
 $sth = $dbh->prepare($sql);
 $sth->execute
   or die "SQL Error: $DBI::errstr\n";
 while (@row = $sth->fetchrow_array) {
   print "@row\n";
 } 

Answer 3

用于数据库交互的标准 Perl 库是DBI，它在概要中有大量示例以及您所要求的逐步指南。

ORM 的通常选择是DBIx::Class，它有一个Introduction 。