数据仓库EXPORT 追加日期到行尾

@lstRlst = qw/1 2 3 4 5 6 7 8 9/;
$var=@lstRlst + 0;
print "$var is $var
";
[oracle@jhoa 2]$ perl a9.pl 
$var is 9

    my $writeflagsql;
             my $tmpstr="";
             $row=0;
             my $m=0;
             while(my $Rows = $stmt->fetchrow_arrayref){
                $m=0;
                $tmpstr="";
                foreach(@$Rows){
                        $tmpstr=$tmpstr.$Rows->[$m]."|";
                        $m++;
                }
                print DATAFILE $tmpstr.$DW_DATA_DT."
";  --打印日期到文件尾部
               print "$tmpstr--$DW_DATA_DT
";
                $row++;
                if(($row%10000) == 0){
                        printlog "已导出数据$row条！";
                }
            }