On 3/14/19 10:05 PM, Todd Chester via perl6-users wrote:
Hi All,
What am I doing wrong here?
ps ax | grep [f]irefox | perl6 -ne 'my @x = $_.words[0].lines.reverse;
print @x[0] ~ "\n";'
7380
7581
7698
13023
13767
13908
Two problems:
1) "lines" is putting everything into @x[0]
2) "reverse" is ignoring me as there is no @x[1]. etc.
The result I want is 13908
Many thanks,
-T
This is what I am trying to duplicate:
$ ps ax | grep [f]irefox | awk '{print $1}' | /usr/bin/sort -r |
/usr/bin/sed -n '1,1p'
7814
