etl_test30090.pl

来自「使用peri语言连接oracle数据库并向数据库批量导入数据。数据来源为csv文」· PL 代码 · 共 24 行

 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;
sqlplus  $user/$password$servername
CREATE TABLE T_Test
 (
   ID              VARCHAR2(10),
   NAME            VARCHAR2(10),
   PASSWORD        VARCHAR2(10)        
 )

/
exit
ENDINOUT
   close(DB2CMD);