Awkの出力を渡すにはどうすればよいだろう perlの 変数ですか？

例えば、私は、変数と呼ばれるテストには4列の値を保存します。マイベストに従うとして何かを推測ですが、私は必ずこれを修正されていません。

$test = system("awk '/NUMBER/{print \$4}' $_");

Perlの は、同じように、シェルの中の"バック"演算子をサポートしています。唯一の違いは、 Perlの スペースに変換しませんlinefeedsも余分なスペースを絞る。だから：

$test=`awk .... $_`;

どうして、この機能の提供を使用する perlの 自分自身？

で、 4列の値を格納するには perlの、

my @arr = split(/\|/, $var);
print $var[3];

私は番号を検索するには、 4列でファイルを保存するには、特定の行には、変数に値が見つかりました。このファイルのデータを7000行以上含まれています。私を探していますが、特定の行が含まれてOXT 'これは、なぜ私は、 ' OXT 'と入力し、行の第4列の数をつかむからのみを含む行を見つけることを考えていたのAwkを使用されている文字を' 。分割するには動作しますか？

彼は$ _.に格納するファイルの処理のそのためには、 awkはワンライナー立派に見える。しかし、それは通常と読み替えるものとします：

my @test;
if (open(FOO,$_)) { 
 while ($_=<FOO>) { 
   push @test,(split)[4];
 }
}
$test=join(" ",@test);

もちろんです。あなたをお探しです 正確に 1行、または複数の？列を空白で区切られていますか？はい、上記すべての回答をすると仮定すると：

my $target;
if (open(FOO,$_)) { 
 while ($_=<FOO>) { 
   next unless /OXT/;  # find OXT anywhere in line.
   $target=(split)[4];
   last;
 }
 close(FOO); # forgot this last time, though not really necessary.
}
# 4th field in $target

それだけは、最初の発症を選択します。元のAwkのスクリプトをすべての一致する行を返します。分からない場合は回避するのは難しい Perlのは、これに言及する場合に新しいしている。