#!user/bin/perl -w
use strict;
use DBI;
my $user = "root";
my $password = "123";
my $url = "DBI:mysql:database=database_name;host=IP";
my $dbh = DBI->connect($url,$user,$password) or die=$DBI::errstr;
正常的数据库操作
如果报错的话是没有数据库权限,用以下命令:
grant all PRIVILEGES on *.* to root@'%' identified by 'passwd';
passwd替换为自己的密码即可