perl脚本for循环多次insert

perl脚本for循环多次insert

不行的原因是什么？ 就光看你现在的程序，显然是不对的，应该报语法错，SQL最后没有双引号，而且你这个看上去是两条SQL语句，而且perl字符串中间也不允许换行。如果非要换行，可以使用qq~的形式，即：


$shareresult =  $conn->execute_sql(qq~ 
INSERT INTO tmp_xk_stop_info(custid, servid, pid)  
SELECt  0, servid, pid      
FROM biz_product     
WHERe etime >= TRUNC(sysdate +$i)      
AND etime < TRUNC(sysdate + 1 + $i);   
~);
$shareresult =  $conn->execute_sql("update tmp_xk_stop_info set stopdate = trunc(sysdate + 1 +$i - 1/24/60/60");追问my $conn = dss_common->new();

my @array=(1,2,3);
my $shareresult;
foreach$i(@array){
你的那个代码
}
我这样子写，但是还是报错：Global symbol "$i" requires explicit package name at...