首先需要安装

ppm install DBD::mysql

use strict;use DBI; my $host = "localhost"; # 主机地址my $driver = "mysql"; # 接口类型 默认为 localhostmy $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();