Re: [PerlChina] perl程序中，如何使用shell自己的变量？

加上反斜杠转义一下就好了

2011/3/10 Gary.jsz <gary.jsz@gmail.com>

大家好！ 


    我想在perl程序中得到linux系统的一些值，使用shell比较方便实现，但是有个问题，就是perl把shell的变量当作了自己的变量来替换了，比如：

ps aux |awk "BEGIN { print '%CPU %MEM %STAT PID COMMAND' } { if ('$3' > 25 || '$4' > 25 || '$8'~/Z/ && '$8'!~/Z</) print '$3', '$4', '$8', '$2', '$11'}" |sort

上面命令，在linux系统上面是跑的很正常的，但是，如果放到perl程序中，所有的变量都变成了perl的了，有什么方法可以在perl程序中，完整的得到此命令的输出结果？

比如：
    
my $ps = `ps aux |awk "BEGIN { print '%CPU %MEM %STAT PID COMMAND' } { if ('$3' > 25 || '$4' > 25 || '$8'~/Z/ && '$8'!~/Z</) print '$3', '$4', '$8', '$2', '$11'}" |sort`

而$ps却得不到想要的值。

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。