关于用perl输出列

cxfcxf

比如我想输出ps aux的第二列
类似awk '{print $2}'

不知道这个程序哪里问题 还是思考哪里出问题 请指教
我测试了一个文件 是可以的 但是如果吧@array=`ps aux`怎么也不行 估计array以后打算了结果
对于一个文件很简单

这个是可以的
open(PS, "psout") or die $!;
while (my $line = <PS>) {
    my @st = split(" ", $line);
    print "@st[1]\n";
}

但是当我尝试
@array=`ps aux`;
while (my $line = @array) {
    my @st = split(" ", $line);
    print "@st[1]\n";
}
就死循环而不是我要得信息..这个应该怎么做....
就是 怎么吧命令的结果分列输出


小骆驼说 他读文件是一行一行读的 所以可以这么做
但是对于命令的输出没提到...求指教

flw

这类需求我一般会通过给 ps 加参数的方式来实现。

cxfcxf

不是 可能我没表达清楚
主要是 如果把一个命令结果读到perl的变量里 而不打算结构
因为对于文件来说最后都是\n 所以是一行一行读得 所以可以读入一行 然后split传递给array 然后用@array[n]输出特定的列
但是 如果不是文件 而是命令的结果 如果读到perl的变量里 不破坏结构...这样...
就是好奇......虽然很多shell来写更简单..但是..想用perl去思考看看...

cxfcxf

谢谢..找到答案了...
open(PS,"cmd|");
用这个来....就不会有格式问题了....

Perl_Er

try to change while to foreach