[Perl] DBI Mysql 基本用法

ActivePerl DBI Pacage : "DBD-mysql"

#使用DBI 包
use DBI；
#连接database
my $db = DBI->connect("DBI:mysql:$database:$hostname:$port",$user,$pw,{'RaiseError'=>1});#第三个参数指错误信息输出的\1
#关闭连接
$db->disconnect();