awk - or how to select a column in perl

[pc]

hi all,

In shell I can select the second column of ps with awk: ps -ef | |
grep [some process I am looking for] | awk '{print $2}'

when running a perl script and redirecting the output of ps to a file,
eg
open(F, "ps -ef | grep [some process I am looking for] | awk '{print
$2}' | "); the ' inverted comma upsets the redirection.

Help! How can I select the second (PID) column of ps in perl?

TIA

eddiec

 

[pc]

there is a faq on this at
http://theoryx5.uwinnipeg.ca/CPAN/perl/pod/perlfaq4/How_do_I_extract_selected_columns_from_a.html
but this seems a pretty long winded way of doing it compared to awk.
substr() is also fiddly as again you have to define the exact column
positions...

eddiec

 

[Tad McClellan]

In shell I can select the second column of ps with awk:

perldoc a2p

or

man a2p

 

[Eric J. Roode]

hi all,

In shell I can select the second column of ps with awk: ps -ef | |
grep [some process I am looking for] | awk '{print $2}'

The perl equivalent to the above is:

...whatever... | perl -lane 'print $F[1]'

--
Eric
`$=`;$_=\%!;($_)=/(.)/;$==++$|;($.,$/,$,,$\,$",$;,$^,$#,$~,$*,$:,@%)=(
$!=~/(.)(.).(.)(.)(.)(.)..(.)(.)(.)..(.)......(.)/,$"),$=++;$.++;$.++;
$_++;$_++;($_,$\,$,)=($~.$"."$;$/$%[$?]$_$\$,$:$%[$?]",$"&$~,$#,);$,++
;$,++;$^|=$";`$_$\$,$/$:$;$~$*$%[$?]$.$~$*${#}$%[$?]$;$\$"$^$~$*.>&$=`