perl怎么连上mysql数据库?

[tiger]

各位好, 小弟正在学perl, 现在正学到连数据库
写的是:
------------------------------------
#!/usr/bin/perl
use DBI;
@dbh=DBI->connect(mysql,root,root);
print"@dbh"
------------------------------------
它提示Can't connect, no database driver specified...

怎么办?

[zdg]

你有没有装DBI对数据库的驱动???

[tiger]

我装了
DBI-1_08_tar.tar.gz
Msql-Mysql-modules-1.2209.tar.gz
够了吗?

[xubin_sh]

给你一个例子(要装一个Mysql的包)：
#!/usr/bin/perl
use Mysql;
$driver="mysql";
$hostname="localhost";
$database="geci";
$option="3306";
$user="root";
$dsn = "DBI:$driver:database=$database;$options";
$dbh = DBI->connect($dsn, $user, $password);
$sth = $dbh->prepare('SELECT mtype FROM mtype');
$sth->execute;
$numRows = $sth->rows;
$numFields = $sth->{'NUM_OF_FIELDS'};
while (my $ref = $sth->fetchrow_arrayref) {
for (my $i = 0; $i < $numFields; $i++) {
printf("%s%s", $$ref[$i], $i ? "," : "");
}
print "\n";
}
$sth->finish;

[tiger]

???

[tiger]

谢谢xubin_sh, 小弟已经连上了
问题就出在@dbh=DBI->connect(mysql,root,root);
这一句, 把mysql作为一个变量了.

请问你有oicq吗? 小弟还会有问题请教的. ^_^

[xubin_sh]

我有icq:58231294
不是
@dbh=DBI->connect(mysql,root,root);
而是
$dbh=DBI->connect(mysql,root,root);

[yuma]

朋友：
能不能发一个“Msql-Mysql-modules-1.2209.tar.gz”给我，
最好是win9x下的。我下了好几天都不行（[e-mail])

谢谢！

[tiger]

告诉我链接, 我帮你下载

[duhorse]

有没有WIN下的MYSQL FOR PERL包。