怎樣執(zhí)行外部程序并獲得其輸出, 如果出問題的話也能捕獲輸出及錯(cuò)誤?

ghostsaint

Hi 大家好.

需哦現(xiàn)在使用backtick ` 來執(zhí)行帶參數(shù)的外部sh文件
calldb.sh

1. #!/bin/sh
   
2. 
   
3. sqlplus $1/$2<<END
   
4. execute $3('$4');
   
5. Commit;
   
6. exit;
   
7. END
   
8. 
   
9. exit 0
   

復(fù)制代碼

在shell中手動(dòng)加參數(shù)運(yùn)行, 一切正常;

但是通過cron, 先運(yùn)行一個(gè)sh, cd到perl程序的目錄, 然后執(zhí)行perl程序:

1. my $call = "./calldb.sh $dbUser $dbPwd $dbSpName ";
   
2. if ($fileName =~ m/PART/i) {
   
3.         $call .= "P";
   
4. } elsif ($fileName =~ m/ASSET/i) {
   
5.         $call .= "A";
   
6. }
   
7. undef $!;$result = `$call`;
   
8. appLog("DB call returned: $result");
   
9. if ($?) {
   
10.         confess("DB Call Error Code: $?, Output: $result");
    
11. }

復(fù)制代碼

就會(huì)出現(xiàn)錯(cuò)誤, 并且$result為空:

DB Call Error Code: -1, Output:  at app.pl line 435....


怎樣才能保證出錯(cuò)的情況下, 能夠同時(shí)獲得sh的已有輸出(到perl變量$result以供分析)及有價(jià)值的錯(cuò)誤原因? 謝謝

wind_ch

打印$call看下, 是不是有特殊字符呢

toniz

$result = `$call`;
改成
@result = `$call`;
試試

Perl_Er

command  2>&1

toniz

回復(fù) 1# ghostsaint


    或者用這個(gè)看看:
    `( $cmd ) 2>$log_file`

ghostsaint

Can't exec "./calldb.sh": No such file or directory at app.pl line 713.

Use of uninitialized value in concatenation (.) or string at app.pl line 714.

2010-03-01 17:31:44: DB call returned:

Use of uninitialized value in concatenation (.) or string at ipos.pl line 716.

2010-03-01 17:31:44: Call import script on /export/home/oracle/APP_INPUT/DATA_PART.TXT failed, cause: DB Call Error Code: -1, Output:  at app.pl line 435


=========
line 713: undef $!;$result = `$call`;
line 714: appLog("DB call returned: $result");
line 716: confess("DB Call Error Code: $?, Output: $result");


這些問題發(fā)生在客戶環(huán)境里, 我沒法重現(xiàn)相當(dāng)郁悶.

貌似是calldb.sh的執(zhí)行權(quán)限問題, 但是客戶在shell下加參數(shù)運(yùn)行過, 運(yùn)行正常.

是否會(huì)因?yàn)橥ㄟ^cron調(diào)用產(chǎn)生的void context的問題? 但是以前類似的項(xiàng)目使用了相同的方法.


不解

toniz

回復(fù) 6# ghostsaint


   
    應(yīng)該是CALL執(zhí)行不成功，所以$result 為空導(dǎo)致714和716報(bào)錯(cuò)

toniz

回復(fù) 4# Perl_Er


    嘿嘿 和ER撞頭啦！
   
    那我改個(gè)：open(STDERR, ">errlog.log" )