@lstRlst = qw/1 2 3 4 5 6 7 8 9/;
$var=@lstRlst + 0;
print "\$var is $var\n";
[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."\n"; --打印日期到文件尾部
print "$tmpstr--$DW_DATA_DT\n";
$row++;
if(($row%10000) == 0){
printlog "已导出数据$row条!";
}
}
数据仓库EXPORT 追加日期到行尾
最新推荐文章于 2022-07-28 11:02:54 发布