perl - 3列目だけを取得するには?

Question

次のようなエントリを持つ配列 @foo があります

 Database alias                       = SAMPLE1
 Database alias                       = SAMPLE2
 Database alias                       = SAMPLE3

今、私は3列目だけが欲しい

サンプル1

サンプル2

サンプル3

を使用してシェルで実行できますawk (awk '{print $3}')。perl で実行するにはどうすればよいですか?

score 2 · Accepted Answer

awk '{print $3}' < data.txt

=サインを与える、つまり$ 4

ただし、perl では、autosplit 配列は 0 から始まるため、3 です。

perl -lane 'print $F[3]' < data.txt

2 に答える 2