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

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

我的第一个perl程序,连接数据库

#!/usr/bin/perl -w

use strict; #使用严格语法
use DBI;

#my 关键字为严格语法的 变量申明关键字
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime();
$year += 1900;
my $time = "$year-$mon-$mday $hour:00:00";
print "开始生成$time统计资料!\n";

#连接postgresql数据库
my $dbh = DBI->connect('dbi:Pg:dbname=smscgw;host=127.0.0.1;port=9055',
                       'postgres', '') or die $DBI::errstr;
my $sql = "select provision_count(\'$time\',interval \'1 hours\')";

#执行统计过程
#my $return = $dbh->do($sql);
print "$sql\n统计完毕!\n";

#查看以安装的数据库驱动
#my @available = DBI->available_drivers;
#print @available;

#执行有结果集sql
# my $sth = $dbh->prepare($sql);
#prepare($sql);
#$sth->execute; # 先取得所有的内容

#关闭连接
$dbh->disconnect;

posted on 2006-02-23 18:20 Khan 阅读(1166) 评论(1)  编辑 收藏 引用 所属分类: 跨平台开发周边技术

评论

# re: 我的第一个perl程序,连接数据库 2006-02-24 09:32 Khan's Notebook

免去了编译的麻烦 ,在执行简单任务时比较方便  回复  更多评论   


只有注册用户登录后才能发表评论。
网站导航: 博客园   IT新闻   BlogJava   知识库   博问   管理


<2006年2月>
2930311234
567891011
12131415161718
19202122232425
2627281234
567891011

导航

统计

常用链接

留言簿(33)

随笔分类(225)

随笔档案(171)

相册

技术

友情链接

最新随笔

搜索

积分与排名

最新随笔

最新评论

阅读排行榜

评论排行榜