Min^2 BLOG

　昼過ぎに従姉妹から電話がある。叔母、やはりダメだった、12:30永眠。叔母にはこどもがいないし、兄弟姉妹はみな施設に入っているか、具合が悪いので僕ら甥や姪がいろいろ動かざるを得ない。大体、清瀬の叔母の実家にはまだ叔父の遺骨があるのだ。従姉妹の話だと、お通夜は無しで葬儀の日に叔父と叔母の納骨を同時にしてしまおう、とのこと。やれやれ。従姉妹もご苦労さんである、自分の親でもないのにね。今後叔父と叔母の墓の面倒は誰がみるんだろう？位牌は誰が持つの？ 　日本はどんどんこうなっていくんだろうね。僕やＹっちが死んだら、そのとたんに無縁仏だよね。

こりゃ楽だ。dbへのアクセスが3行で済んじゃう。

my $query = "あーだこーだ";
my $st = &db($query);
my @data = $st->fetchrow;

sub db {
　my ($query) = @_;
　my ($db, $st);

　unless ($db = DBI->connect("dbi:SQLite:dbname=$database")) { &error('DB access error'); }
　unless ($st = $db->prepare($query)){ &error('Prepare error'); }
　unless ($st->execute()){ &error('execute error'); }
　$db->disconnect();
　return ($st);
}

ホンモノのソフト屋さん、ごめんなさい。こんなんで喜んでます。