怎样执行外部程序并获得其输出, 如果出问题的话也能捕获输出及错误?

ghostsaint

Hi 大家好.

需哦现在使用backtick ` 来执行带参数的外部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
   

复制代码

在shell中手动加参数运行, 一切正常;

但是通过cron, 先运行一个sh, cd到perl程序的目录, 然后执行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. }

复制代码

就会出现错误, 并且$result为空:

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


怎样才能保证出错的情况下, 能够同时获得sh的已有输出(到perl变量$result以供分析)及有价值的错误原因? 谢谢

wind_ch

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

toniz

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

Perl_Er

command  2>&1

toniz

回复 1# ghostsaint


    或者用这个看看:
    `( $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");


这些问题发生在客户环境里, 我没法重现相当郁闷.

貌似是calldb.sh的执行权限问题, 但是客户在shell下加参数运行过, 运行正常.

是否会因为通过cron调用产生的void context的问题? 但是以前类似的项目使用了相同的方法.


不解

toniz

回复 6# ghostsaint


   
    应该是CALL执行不成功，所以$result 为空导致714和716报错

toniz

回复 4# Perl_Er


    嘿嘿 和ER撞头啦！
   
    那我改个：open(STDERR, ">errlog.log" )