#!/usr/bin/perl -w
use strict; #使用嚴(yán)格語(yǔ)法
use DBI;
sub set_GBK4Mysql{
#設(shè)定數(shù)據(jù)庫(kù)字符集
my $sql = "SET CHARACTER SET GBK";
my $sth = $_ [0]->do($sql);
}
#檢查mysql驅(qū)動(dòng)是否安裝
my $drh = DBI->install_driver( 'mysql' );
if ( !defined $drh ) {
die "不能裝入mysql驅(qū)動(dòng): $!\n";
}
#連接mysql數(shù)據(jù)庫(kù)
my $dbh = DBI->connect('DBI:mysql:dbname=cm3gw;host=127.0.0.1;port=13306',
'sioa_m3','sioa_m3') or die $DBI::errstr;
&set_GBK4Mysql($dbh);
my $query = "Select sp_port,service_name, memo "
." From sp_service_list"
." Where flag = 1 ";
#執(zhí)行有結(jié)果集sql
my $sth = $dbh->prepare($query) or die "Can't prepare $query: $dbh->errstr\n";
my $result = $sth->execute or die "can't execute the query: $sth->errstr";
while(my @row = $sth->fetchrow_array) {
print "$row[0]\t$row[1]\t$row[2]\n";
}
# 指示沒(méi)有更多的數(shù)據(jù)可以被取出,釋放語(yǔ)句句柄,并且釋放系統(tǒng)資源
$sth->finish;
#關(guān)閉連接
$dbh->disconnect;