Oracle构造数据（二）
#主函数体

$time=getsystime();
open AA, ">./$tablename$time.txt"|| die "Open File Error.";

for($j=1;$j<=$totalnum;$j++)
{   
    #随机取值范围  
    my $ballot_id = getrandnum(1,100000);              --从1 到 100000中随机取一个值
    my $option_id = getrandnum(1,10000000);            --从1 到 10000000中随机取一个值
    my $msisdn = getrandnum(13700000001,13900000001);  --从13700000001 到13900000001中随机取一个值作为手机号
   
    #随机时间      
    my $ballot_time = getrandtime();              --从2010-01-01 00:00:00 到2014-12-31 23:59:59之间随机取一个时间作为ballot_time字段的值
              
    #枚举类型
    my $type_id = $type_id[int rand @type_id];    --从"N1","N2","N3","N4","N5","N6","N7","N8","N9","N10","N11","N12"等数据中随机取一个枚举数据作为type_id的值
   
    #随机字符取值
    if ( $j%500 == 1 )
    {
        $source_name = getrandchar(500);          --随机生成500个字符
    }
    my $bookname = substr($source_name, getrandnum(1,200), 5);   --从1至200位中随机取一个起始位置开始往后取5个字符作为书名
    my $charptername = substr($source_name, getrandnum(1,100), 15);  --从1至100位中随机取一个起始位置开始往后取15个字符作为章节名
   
    #序列
    my $sequence_id = 10000 + $j;               --从1000开始往后递增1生成序列值  
                  
    printf AA "$sequence_id|$ballot_id|$option_id|$msisdn|$ballot_time|$bookname|$charptername|$type_id\n";     --输出一条记录，各字段以"|"分隔
}

close AA;

$escapetime=getsystime() - $time;
print "Finish! escapetime = $escapetime s \n"; 
第三步、把该脚本保存后上传至linux操作系统服务器上

第四步、进行赋权操作

chmod 777 script.sh

第五步、执行该脚本

./script.sh


第六步、找到生成的文件

第七步、编辑SQLLOAD

vi load.ctl

LOAD DATA
INFILE 'test20100424114210.txt'    --文件名替换成生成的文件名
append
INTO TABLE us_present_record
  FIELDS TERMINATED BY '|'
  (
  sequence_id,
  ballot_id,
  option_id,
  msisdn,
  ballot_time "to_date(:ballot_time,'''yyyy-mm-dd hh24:mi:ss''')",
  bookname,
  charptername,
  type_id
  )

第八步、执行命令进行入库操作

sqlldr 用户名/密码 control=load.ctl    --load.ctl是控制文件的文件名