快讓人發瘋的 Perl !!

好久沒寫 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]");

一開始就碰到很怪的問題,太久沒用了,原來是因為撰寫程式的環境是Win10及UltraEdit,而執行環境在IBM的AIX上,故要使用 DOS轉UNIX,不然內碼會不對,導致很奇怪的錯誤發生,因為這個問題,浪費了很多的時間.真是太失敗了.

記得第一次寫perl程式是在大一的時候,大約二十年前了,程式還是要常常碰,不能因為現在大部份時間是PM的角色就荒廢.獻上一本Learning Perl.