#!/usr/bin/perl
use Pg;

# ------------------------- データベースにコネクト
$dbname = 'mast';
$con = Pg::connectdb( "dbname=$dbname" );

# ------------------------- アクセスユーザをプリント
$user = $con->user;
print "User : $user\n";

# ------------------------- テーブルへアクセス
$table  = "mast_resv";
$query = "SELECT id,ymd,head FROM $table WHERE area='76' AND ymd BETWEEN '19991012' AND '19991015' ORDER BY id,ymd";
$result = $con->exec( "$query" );

$num=0;
while(@row = $result->fetchrow){
# ------------------------- プリント　１
	foreach(@row){
		print "$_";
	}
	print "\n";

# ------------------------- プリント　２
	print "$row[0]$row[1]$row[2]\n";

# ------------------------- プリント　３
	my $value = $result->getvalue($num,0);
	print "$value";
	my $value = $result->getvalue($num,1);
	print "$value";
	my $value = $result->getvalue($num,2);
	print "$value\n";
	$num++;
}

# ------------------------- 合計をプリント
$total = $result->ntuples;
print "---------------------\n";
print "Total : $total\n";