好久沒寫 perl 程式了,因為工做上的需要,只能重拾古老的記憶,寫吧!手邊雖然有一些範例,但因為是在IBM的AIX上要跑Oracle的資料,故是使用 Accessing the Oracle Database with Perl.
#!/oracle/db/perl/bin/perl
use Oraperl;
$progCode = $0; $progCode =~ s/^.+\\|^.+\/|\.pl//g;
$olHa = &ora_login('','/','') || die "err:$ora_errstr";
@result = &AP_PROGRAM(@ARGV); &ora_logoff($olHa);
&print_prog_log("$result[0]");