PerlからDBIを使って、postgresqlにアクセスする。

まず、パッケージが必要。

$ yum -y install perl-DBI-Pg

コード

#!/usr/bin/perl

use strict;
use warnings;
use DBI;

&main();
exit;

sub main {
  my $db_name    = "test_db";
  my $db_host    = "db";
  my $user_name  = "postgres";
  my $user_pass  = "";
  my $table_name = "test_table";
  my $column1    = "Name";
  my $column2    = "Number";
  my $values1    = "c";
  my $values2    = "1234";
  my $DB         = DBI->connect ("dbi:Pg:dbname=$db_name;host=$db_host",$user_name,$user_pass);
  my $query      = "INSERT INTO $table_name (\"$column1\" , \"$column2\") VALUES ('$values1' , '$values2')";
  my $SQLstat    = $DB->prepare($query);
  my $RESULT     = $SQLstat->execute;
  $SQLstat->finish;
  $DB->disconnect;
  printf STDOUT $RESULT."\n";
}

__END__

ポートの指定をする方法もあったんだが、忘れた。
気が向いたら、調べよう。