Class::DBI

実験できたー。とりあえず、接続してレコードから抜き出すところまで。
接続先は、個人的に作った海野やよい作品データベース。

Umino.pm

package Umino;
use base 'Class::DBI';
Umino->set_db(
	'Main',
	'dbi:Pg:dbname=umino;host=www.eiji8pou.net',
	'username',
	'password'
);

package Umino::Item;
use base 'Umino';
Umino::Item->table('item');
Umino::Item->columns(
	All=>qw(
		item_id
		type
		name
		name_read
		date_of_issue
		price
		size
		isbn
		note
	)
);
1;

umino.cgi

#!/usr/bin/perl
use strict;
use lib qw ( /var/www/cgi-bin );
use Umino;
use CGI;
my $q = CGI->new;
print $q->header(-charset=>'euc-jp');
print $q->start_html;

my @item = Umino::Item->retrieve_all;

foreach ( @item ) {
	my @t = $_->get('name', 'name_read');
	print $t[0].'('.$t[1].')<br>';
}

print $q->end_html;

実行結果は、ないしょだ。面倒だしえちぃから。