随笔 - 171  文章 - 257  trackbacks - 0
<2006年2月>
2930311234
567891011
12131415161718
19202122232425
2627281234
567891011

常用链接

留言簿(33)

随笔分类(225)

随笔档案(171)

相册

技术

友情链接

最新随笔

搜索

  •  

积分与排名

  • 积分 - 440570
  • 排名 - 48

最新随笔

最新评论

阅读排行榜

评论排行榜

#!/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)  编辑 收藏 引用 所属分类: 跨平台开发周边技术

FeedBack:
# re: 我的第一个perl程序,连接数据库 2006-02-24 09:32 Khan's Notebook
免去了编译的麻烦 ,在执行简单任务时比较方便  回复  更多评论
  

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