随分、久しぶりのperl。で、以下のような感じかと思います。 ポイントは、接続する為の環境変数設定です #!/usr/local/bin/perl use utf8; use strict; use warnings; use DBI; #use DBD::Sybase; use Encode; use Time::Piece; use Time::Seconds; my $CONF = { db=>{user => 'ないしょ', passwd => 'ないしょ', name => 'ないしょ', server => 'ないしょ', charset=> 'utf8', option =>{ …