Khan's Notebook GCC/GNU/Linux Delphi/Window Java/Anywhere

路漫漫,长修远,我们不能没有钱

perl的常用基本语法例子

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

posted on 2007-04-20 13:27 Khan 阅读(1706) 评论(0)  编辑 收藏 引用 所属分类: 跨平台开发周边技术


只有注册用户登录后才能发表评论。
【推荐】超50万行VC++源码: 大型组态工控、电力仿真CAD与GIS源码库
网站导航: 博客园   IT新闻   BlogJava   知识库   博问   管理


<2007年4月>
25262728293031
1234567
891011121314
15161718192021
22232425262728
293012345

导航

统计

常用链接

留言簿(33)

随笔分类(225)

随笔档案(169)

相册

技术

友情链接

最新随笔

搜索

积分与排名

最新随笔

最新评论

阅读排行榜

评论排行榜