Perlからpsqlのデータベースに接続

#!/usr/bin/perl
use Pg;

# DATABASEへの接続を開始
# USERNAME, DBNAME, PASSWORDを編集してください。
$conn = Pg::connectdb("user=USERNAME dbname=DBNAME password=PASSWORD");

# SELECT文を編集してください。
$sql = "select * from TABLENAME";

# コマンドの引渡し
$result = $conn->exec($sql);

# 行、列の値を取得。 
$row = $result->ntuples;
$field = $result->nfields;

for my $i( 0..($row-1) ) {
  for my $j( 0..($field-1) ) {
     print $result->getvalue($i, $j), "\t|\t" ;
  }
  print "\n";
}

---

トップページ