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