awk inside perl

[25884]

Hi,

I need to execute the following command inside perl :

grep string file_cont_string | awk -F ' ' '{print $3}'

How do i do that??

TIA

 

[stevexff]

Rather than shelling out to two piped commands, it's probably easier to do the whole thing in perl.

Correct me if I'm wrong (I stopped using awk after I discovered perl), but it seems like you are looking for lines in a file that match some string, and collecting the third field from each found line?

use strict;
use warnings;

while (<>) {
   print split($_)[3], "\n" if (/string/);
}

Might do it. (Untested)

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]

 

[stevexff]

Mmm. Should be [2] not [3] in the above...

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]

 

[MillerH]

Or, as a one liner:

perl -n -e "/string/ && print \"\" . (split \" \", $_)[2] . \"\n\"" file_cont_string

 

[ishnid]

Alternatively:

perl -ane '/string/ && print "$F[2]\n"' file_cont_string

 

[MillerH]

Thanks ishnid.

I knew there was a way to do it more compactly, but my coffee hasn't quite sunk in yet.

 

[max1x]

If you really have to use, the you might try this:

$data = `grep string file_cont_string | awk -F ' ' '{print \$3}'`;