●Class::DBI::Pg (Perl-DBI) # psql idic idic=# select name from idic where id = 1001; name ------ 夏帆 (1 row) package Idic; use strict; use base qw(Class::DBI::Pg); Idic->set_db(Main => 'dbi:Pg:dbname=idic'); Idic->set_up_table('idic'); # idic is table name # fetch data as object my $obj = Idic->retrieve('id', 1001); print $obj->name; # -> '夏帆' # update object $obj->name('夏帆ジェダイ'); $obj->update; $ob