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__
ポートの指定をする方法もあったんだが、忘れた。
気が向いたら、調べよう。