如何像bash中获得命令执行结果

churchmice

1. 
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. my $path="/home/http";
   
6. my $key="baidu";
   
7. #想得到cat $path|grep $key>>/dev/null;echo $?的执行结果是否成功，应怎样做??
   
8. #my $keytest=`cat $path|grep $key>>/dev/null;echo $?`;
   
9. system("cat $path|grep $key");
   
10. my $keytest = $?>>8;
    
11. print "test key=$keytest";
    

复制代码

或者

1. 
   
2. use strict;
   
3. use warnings;
   
4. my $path="/tmp/http";
   
5. my $key="baidu";
   
6. #想得到cat $path|grep $key>>/dev/null;echo $?的执行结果是否成功，应怎样做??
   
7. my $keytest=`cat $path|grep $key >>/dev/null; echo \$?`;
   
8. print "keytest=$keytest\n";
   

复制代码

因为``里面的东西perl是做替换的，所以需要backslash掉

[ 本帖最后由 churchmice 于 2009-4-25 13:11 编辑 ]

churchmice

你应该使用

1. 
   
2. system (@command)
   
3. if ($? == -1) {
   
4.                        print "failed to execute: $!\n";
   
5.                    }
   
6.                    elsif ($? & 127) {
   
7.                        printf "child died with signal %d, %s coredump\n",
   
8.                            ($? & 127),  ($? & 128) ? 'with' : 'without';
   
9.                    }
   
10.                    else {
    
11.                        printf "child exited with value %d\n", $? >> 8;
    
12.                    }
    

复制代码

[ 本帖最后由 churchmice 于 2009-4-25 12:58 编辑 ]