#!/usr/bin/perl -w
use strict; #使用嚴格語法
use DBI;
sub set_GBK4Mysql{
#設定數據庫字符集
my $sql = "SET CHARACTER SET GBK";
my $sth = $_ [0]->do($sql);
}
#檢查mysql驅動是否安裝
my $drh = DBI->install_driver( 'mysql' );
if ( !defined $drh ) {
die "不能裝入mysql驅動: $!\n";
}
#連接mysql數據庫
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 ";
#執行有結果集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";
}
# 指示沒有更多的數據可以被取出,釋放語句句柄,并且釋放系統資源
$sth->finish;
#關閉連接
$dbh->disconnect;