perl取Oracle数据，时间乱码

ulmer

原帖由 jane007 于 2009-7-1 15:00 发表
已经设置环境变量了，还是不行， 如下：
NLS_LANGUAGE=AMERICAN_AMERICA.AL32UTF8
NLS_DATE_FORMAT=DD-MM-YYYY HH24:MI:SS
NLS_TIME_FORMAT=HH24:MI:SS
NLS_TIMESTAMP_FORMAT=DD-MM-YYYY HH24:MI:SS
如 ...

why don not try to use  to_char() ?
ie.:
my $sql = "SELECT col_a,  
    to_char(col_b_with_date, 'DD-MM-YYYY HH24:MI:SS') as col_b,
    to_char(col_c_with_date, 'DD-MM-YYYY HH24:MI:SS') as col_c,
   col_x FROM $table WHRER $where";

my $sth = $dbh->prepare($sql);
$sth->execute;
while (my $rows = $strh->fetch_href) {
    print $rows->{'col_b'}, "\n";      # see what's happed
}