用Perl来操作Mysql数据库

利用Perl的DBI来操作Mysql数据库
如果你没有安装mysql的DBI.
开始，下载并安装Perl DBI模块和MySQL DBD。通过在Perl 命令行中运行以下命令即可完成安装过程：
首先保证此mysql数据库服务器能够上Internet,
perl> perl -MCPAN -e "install DBI"
perl> perl -MCPAN -e "install DBD::mysql"

[root@web tools]# cat mysql.pl
#!/usr/bin/perl

#加载DBI模块
use DBI;

#声明mydb变量，并给mydb变量赋值为mysql
my $mydb=mysql;

print "Enter user for connect: ";

#从标准输入里读出变量user的值,并去掉换行符号.
chomp($user = );
print "Enter passwd for $user: ";

#从标准输入里读出变量pw的值,并去掉换行符号.
chomp($pw = );

#得到一个sql连接的句柄,如果不能连接，得打印相应的错误提示.
$dbh = DBI->connect("DBI:mysql:$mydb",$user,$pw);
die "Unable to connect: ".$DBI::errstr."\n" unless (defined $dbh);

#准备需要执行的sql语句
$sth=$dbh->prepare("insert into test value (22);");

#执行上面的sql语句
$sth->execute();

#断开数据库连接
$dbh->disconnect;