$mysql_db = DBI->connect("DBI:mysql:database=$d;host=$h", $u, $) $oracle_db = DBI->connect("dbi:Oracle:host=$h;service_name=$d", $u, $p) $mysql_db->{RaiseError} = 1; $oracle_db->{RaiseError} = 1; # get data from MySQL $sql = ' select bmprefix, bmid, englishtitle, foreigntitle from mysql_books '; $sql_handle = $mysql_db->prepare($sql); $sql_handle->execute(); $mysql_data = $sql_handle->fetchall_arrayref(); # revise Oracle table $del_sql = " delete from bard_books where bkmed = '?' and bkseq = ? "; $ins_sql = " insert into oracle_books (bkmed, bkseq, english_title, foreign_title) values ('?', ?, '?', '?') "; $del_handle = $oracle_db->prepare($del_sql); $ins_handle = $oracle_db->prepare($ins_sql);