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

多重引号真不是什么好现象，尤其是对于不会用引号的人来说：

my $cmd = q[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];
my $ps = `$cmd`;

另外，在 Perl 中嵌入 Shell 也不是什么好现象，尤其对 Shell 学的不好的人来说：

my @ps =
    sort
    map {
        "@$_[qw(3 4 8 2 11)]
    }
    grep {
        $_->[3] > 0 || $_->[4] > 0 || $_->[8] =~ /Z/ && $_->[8] !~ /Z</
    }
    map {
        [ $_, split ]
    }
    `ps aux`;

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