Class::DBI
実験できたー。とりあえず、接続してレコードから抜き出すところまで。
接続先は、個人的に作った海野やよい作品データベース。
Umino.pm
package Umino; use base 'Class::DBI'; Umino->set_db( 'Main', 'dbi:Pg:dbname=umino;host=www.eiji8pou.pics', '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;
実行結果は、ないしょだ。面倒だしえちぃから。
※2005/04/22 Fri 11:07:57 に再編集されました。
※2004/11/01 Mon 19:26:37に再編集されました。