perl 远程 mysql_perl联接mysql

perl连接mysql

1、安装DBI模块

通用方式：

cmd->perl -MCPAN -e shell->install dbd::mysql

window专有方式：

cmd->ppm install DBI->ppm install dbd::mysql。

2、准备数据库

这里以系统数据库mysql为例。

3、编写Perl脚本

#!/usr/bin/perl use DBI; my $dbname="mysql"; my $location="localhost"; my $port="3306"; my $database="DBI:mysql:$dbname:$location:$port"; my $db_user="root"; my $db_pass="123456"; my $dbh=DBI->connect($database, $db_user, $db_pass); my $sql="select Host, User, Password from user"; my $sth=$dbh->prepare($sql); $sth->execute(); while(my @ref=$sth->fetchrow_array()){ print "Host:@ref[0],User:$ref[1],Password:$ref[2]/n"; } $dbh->disconnect

欢迎大家阅读《perl联接mysql》,跪求各位点评，by 搞代码

原创文章，转载请注明： 转载自搞代码

微信 赏一包辣条吧~

支付宝 赏一听可乐吧~