[perl] update 쿼리

####

* update 는 do를 쓴다 use DBI; BEGIN {   $ENV{ORACLE_HOME} ='/oracle/product/11.2.0/db_1';   $ENV{TWO_TASK} = 'tnsnames';   $ENV{NLS_LANG} = 'KOREAN_KOREA.UTF8'; } $dbh = DBI->connect('dbi:Oracle:','abc@orcl','abc',{AutoCommit =>1}); do config; $rc = $dbh->ping;     open(UPDB, "$w_file");   while (<UPDB>){         $updb_line=$_;         @updb_values=split /,/,$updb_line; print "Step 1\n";     print "UPDATE job_info_new_sec SET swpend='$updb_values[1]' , hwpend='$updb_values[2]' where jobid='$updb_values[0]'\n";     $dbh->do("UPDATE job_info_new_sec SET swpend=$updb_values[1] , hwpend=$updb_values[2] where jobid='$updb_values[0]'"); print "Step 2\n";   } close(UPDB); close(fileHandle); $dbh->disconnect;