perl 操作mysql 数据库

#! /usr/bin/perl

use DBI;

my $driver="DBI:mysql";

my $host="10.21.1.62";

my $port=3306;

my $database="mario";

my $user="root";

my $passwd="Paic1234";

my $rules="mo_alert_set";

my $dbh = DBI->connect("$driver:database=$database;host=$host;port=$port;user=$user;password=$passwd") or die "Can't connect: " . DBI->errstr;

my $sth=$dbh->prepare("select * from $rules");

$sth->execute() or die "Can't prepare sql statement". $sth->errstr;

# 打印获取的数据

while(@recs=$sth->fetchrow_array){

my $length = @recs;

foreach my $i ( 0 .. $length) {

print @recs[$i].",";

}

print "\n";

}

$sth->finish();

$dbh->disconnect();