etl_test30100.pl

使用peri语言连接oracle数据库并向数据库批量导入数据。数据来源为csv文件。

 my $user = 'system';
 my $password = 'admin';
 my $servername = '@oradu'; 
 my $rc = open(DB2CMD, "|cmd");
   # To see if DB2CMD command invoke ok?
   unless ($rc) {
      print "Could not invoke DB2CMD command/n";
    return -1;}
  
    
print DB2CMD <<ENDINOUT;
sqlldr userid=system/admin@oradu control=d:\\T_Test.ctl
ENDINOUT
   close(DB2CMD);