perl - コマンドラインからインデックス列の辞書ファイルに対してタブ区切りのデータファイルをフィルタリングする方法は?

Question

file1を含むファイルがあります

123 foo
45  bar
678 foobar
...

およびfile2含む

xyz
foo
foobar
...

file12 番目の列が に表示される行のみを含むファイルを取得したいfile2:

123 foo
678 foobar
...

列はタブで区切られています。可能であれば、Mac OS X コマンドラインからこれを実行したいと思います。

Answer 1

これは間違いなく次の仕事ですjoin:

$ join -1 2 -2 1 <(sort file) <(sort file2)
foo 123
foobar 678

Answer 2

これを試して ：

grep -f file2 file1 > Output.txt

ファイル1

123 foo
45  bar
678 foobar

ファイル2

xyz
foo
foobar

出力.txt

123 foo
678 foobar

Answer 3

Perl の使用:

use strict;
use warnings;

my %seen;
open (my $input2, "<", "input2") or die("open input2: $!");
while (<$input2>) { chomp; $seen{$_}++; }
close $input2;

open (my $input1, "<", "input1") or die("open input1: $!");
while (<$input1>) {
  chomp;
  my $key = (split (/\s+/))[1];
  print "$_\n" if $seen{$key};
}
close $input1;

joinまたは、 andを使用してこれを行うことができますsort。

sort input2 > input2sorted
join -1 2 -2 1 input1 input2sorted

また次回は、質問に対する見解を投稿して、より具体的な質問をすることができます。

Answer 4

を使用する 1 つの方法を次に示しawkます。

awk -F "\t" 'FNR==NR { a[$0]++; next } $2 in a' file2 file1

結果：

123 foo
678 foobar

Answer 5

File::Slurpを使用してファイルを読み取る perlオプションを次に示します。map'keys'を使用してハッシュを初期化するために使用され、正規表現は、grepエントリがハッシュ内にある場合に一致する行のみを通過させるために使用される最後の列エントリを取得します。

use strict;
use warnings;
use File::Slurp qw/read_file/;

my %keys = map { chomp; $_ => 1 } read_file 'file2.txt';
print for grep { /\t(.+)$/; $keys{$1} } read_file 'file1.txt';

データセットへの出力：

123 foo
678 foobar