フィルター共通の価値観は

Question

私は、Perlの初心者だと私は例えば、ユニークな長いID名、各数文字の1列に大きなテキストファイルをフィルタリングしようとしています：

Aghm 
Tbc2 
Popc 
Ltr1 
Iubr 
Osv5 

と同じIDの名前の一部と2番目のテキストファイルに対して、このリストをフィルタリング、例えば：

Popc 
Iubr 
Trv7 
Ybd8 

は、私が唯一の共通IDの名前を検索して、新しいテキストファイルに印刷したいです。上記の例では、私は、リストを生成したい：

Popc 
Iubr 

は、どのように私はperlのスクリプトを使用してそれを行うことができますか？

Answer 1

パスに入れるには、Perl フィルタを作成するようです。

ダイヤモンドオペレータ（つまり<>）をループし、選択した行を2番目のファイルに書き込むと、最初のファイルを開くことができます。

Perl Cookbookのコピーを入手してください。chapter 07は、このようなケースを扱っています。

#!/usr/bin/perl 
use strict; 
use warnings; 

open my $rh, '<', 'filter_ids.txt' or die "$!\n"; 

my %filter = map {$_ => 1} <$rh>; 

open $rh, '<', 'ids.txt' or die "$!\n"; 
open my $wh, '>', 'filtered_ids.txt' or die "$!\n"; 

map {print $wh $_} grep $filter{$_}, <$rh>; 

close $wh; 

個人的に私はむしろgrepでこれを行うだろう：

grep -f filter_ids.txt ids.txt > filtered_ids.txt 

結果、いずれの場合も、これはfiltered_ids.txtに望ましい結果を記述したIDファイルids.txt、フィルタファイルfilter_ids.txtを持つ

Answer 2

：

flesk@flesk:~$ more filtered_ids.txt 
Popc 
Iubr