■PERL-DBI テストスクリプト
- 2004.10.28 Thursday
- 13:13
use DBI;
$dsn = 'DBI:Oracle:ossdb';
$user = 'chescom';
$password = 'mocsehc';
# サーバー側の今日のシステム日付を取得します
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime();
$mon++;
$today = sprintf("%02d%02d%02d%02d%02d", $mon, $mday, $hour, $min, $sec); # yyyymmdd
# connect to db ---------------------
$dsn = 'DBI:Oracle:ossdb';
$user = 'chescom';
$password = 'mocsehc';
# サーバー側の今日のシステム日付を取得します
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime();
$mon++;
$today = sprintf("%02d%02d%02d%02d%02d", $mon, $mday, $hour, $min, $sec); # yyyymmdd
# connect to db ---------------------