Выполнение Grep, AWK в Perl

Question

Мне нужно выполнить следующую задачу в PERL скрипт

'cat $temp_file | grep $specific_word | awk '{ print \$2 }'

open(F,$temp_file); 
@list=<F>;close F; 
$specific_word ="String I want"; 
@f=grep /$specific_word/,@list; 
print $f[2]; 

Я делаю выше. Может кто-то помочь мне с этим. Есть ли альтернативный способ сделать это?

Примечание: Мне нужно напечатать второе слово каждой строки с гребнем. По приведенному выше коду я получаю только вторую строку.

Answer 1

perl -lane "print \$F[1] if /$specific_word/" $temp_file 

Если вы действительно хотите быть многословным (убедитесь, что вы use 5.12.0 (или аналогичный), чтобы получить say:

open my $f, '<', $temp_file; 

while(<$f>) { 
     my @F = split; 
     say $F[1] if /$specific_word/; 
}