#! /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();
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();