如何将system结果输出到一个变量？

屠龙

例如将

   

system(“/bin/ps ax \| grep \"perl5.12.2\" \| grep -v grep \| awk \'\{print \$7\}\' | wc -l”)

输出到一个变量

Perlvim

my $var = system("shell cmd");

cu_little_bird

1. $a=`/bin/ps ax \| grep \"perl5.12.2\" \| grep -v grep \| awk \'\{print \$7\}\' | wc -l`

复制代码

gaoyang636

1. @return=readpipe("COMMANDS") or die (ERROR!$?)

复制代码

PfanAya

cu_little_bird 发表于 2011-11-22 23:06

对吗？
The return value is the exit status of the program as returned by the wait call.
system返回值是退出状态。

PfanAya

对吗？
The return value is the exit status of the program as returned by the wait call.
sy ...
PfanAya 发表于 2011-11-24 08:52

谢谢 又长见识了

1. my $result = readpipe("ls -l");
   
2. print $result;
   

复制代码

屠龙

解决了，谢谢楼上各位大侠！