Perl 连接 MySQL，DBI怎么安装？

Posted 2023-05-09

RT，初学Perl，现在学到数据库编辑，要用Perl连接mysql，DBI如何安装啊？请教了？

参考技术A 是什么系统？windows下的strawberry perl已经带了dbi和dbd了linux下，安装mysql client后，可以用下面的命令安装：perl -MCPAN -e 'install DBI'perl -MCPAN -e 'install DBD::mysql' 参考技术B 谢谢，我是在vmware上安装的centos，呵呵解决了，恩，我在Windows下安装Strawberry Perl试一下 参考技术C 如果是用界面版的linux，安装的时候可以选择安装这些程序开发库

perl连接mysql数据库

首先需要安装

ppm install DBD::mysql

use strict;
use DBI;
 
my $host = "localhost";         # 主机地址
my $driver = "mysql";           # 接口类型 默认为 localhost
my $database = "RUNOOB";        # 数据库
# 驱动程序对象的句柄
my $dsn = "DBI:$driver:database=$database:$host";  
my $userid = "root";            # 数据库用户名
my $password = "123456";        # 数据库密码
 
# 连接数据库
my $dbh = DBI->connect($dsn, $userid, $password ) or die $DBI::errstr;
my $sth = $dbh->prepare("SELECT * FROM Websites");   # 预处理 SQL  语句
$sth->execute();    # 执行 SQL 操作
 
# 注释这部分使用的是绑定值操作
# $alexa = 20;
# my $sth = $dbh->prepare("SELECT name, url
#                        FROM Websites
#                        WHERE alexa > ?");
# $sth->execute( $alexa ) or die $DBI::errstr;
 
# 循环输出所有数据
while ( my @row = $sth->fetchrow_array() )
{
       print join(‘\t‘, @row)."\n";
}
 
$sth->finish();
$dbh->disconnect();