create table hdkz(
riqi date,
jiage number,
xliang number,
shou number,
mm varchar2(2))
hdkz.ctl
load data
infile 'c:hdkz.TXT'
APPEND
into table hdkz
fields terminated by ","
( riqi, jiage, xliang, shou,mm )
use strict;
my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
my @abbr = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );
$year += 1900;
open(FR,"c:/gp/002184.TXT")||die "出错，不能打开 n";
open(FW,">c:/gp/hdkz.TXT")||die "出错，不能建立 n";
while (my $line =) {
# Okay break the line up for processing
chomp($line);
my @row=split(" ",$line);
print FW "$year/$abbr[$mon]/$mday $row[0],$row[1],$row[2],$row[3],$row[4]n";
}
close(FW);
close(FR);
system("sqlldr mao/mao control=c:/gp/hdkz.ctl");[@more@]
riqi date,
jiage number,
xliang number,
shou number,
mm varchar2(2))
hdkz.ctl
load data
infile 'c:hdkz.TXT'
APPEND
into table hdkz
fields terminated by ","
( riqi, jiage, xliang, shou,mm )
use strict;
my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
my @abbr = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );
$year += 1900;
open(FR,"c:/gp/002184.TXT")||die "出错，不能打开 n";
open(FW,">c:/gp/hdkz.TXT")||die "出错，不能建立 n";
while (my $line =
# Okay break the line up for processing
chomp($line);
my @row=split(" ",$line);
print FW "$year/$abbr[$mon]/$mday $row[0],$row[1],$row[2],$row[3],$row[4]n";
}
close(FW);
close(FR);
system("sqlldr mao/mao control=c:/gp/hdkz.ctl");[@more@]
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/9907339/viewspace-1044938/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
oracle 自治事务
下一篇：
rman不完全恢复
请登录后发表评论
登录
全部评论
