====>a.sql
spool on
set pages 50000
set lines 200
set trims on
set colsep ','
set heading off
set termout off
set feedback off
SPOOL t2.csv
select /*+PARALLEL(20)*/
BROAD_RATE_ATTR_ID,
'20230707','duanhw'
from T_DIM_BROAD_RATE;
SPOOL OFF
exit
====>
my $sql_script = 'a.sql';
system("sqlplus user/passwd\@DB3 \@${sql_script} \\ ");
Perl 通过sqlplus 执行Spool语句
于 2023-07-07 12:07:51 首次发布