ファイルの内容を比較するためのperlコード

Question

私はperlスクリプトの初心者です。私は2つのファイルを持っています。私は内容を行ごとに比較し、一致するものを削除したい。 2つ目のファイルの複数の行に一致するように1つのファイルにワイルドカードを使用すると、複数の一致が削除され、残りのファイルが別のファイルに書き込まれます。私はワイルドカードの世話をしない別の郵便からちょっと手に入れました

use strict; 
use warnings; 
$\="\n"; 

open my $FILE, "<", "file.txt" or die "Can't open file.txt: $!"; 
my %Set = map {$_ => undef} <$FILE>; 
open my $FORBIDDEN, "<", "forbidden.txt" or die "Can't open forbidden.txt: $!"; 
my %Forbidden = map {$_ => undef} <$FORBIDDEN>; 
open my $OUT, '>', 'output' or die $!; 
my %Result = %Set; # make a copy 
delete $Result{$_} for keys %Forbidden; 
print $OUT keys %Result 

Answer 1

「ワイルドカード」とはどういう意味ですか？

しかし、あなたが望むことを行う方法はたくさんあります。既存のモジュールを使用する方がきれいなので、cpanにあるList::Compareモジュールを使用することができます。

次のコードでは、このモジュールを使用して1つのファイル（file.txt）に含まれるすべての行を保存しますが、他のファイル（forbidden.txt）には保存しません。だからあなたは暗黙にと一致するの行を一致させます。このコードはファイルからを削除しませんが、それらを見つけることはできません。これは、各フィルタを用いて、ステップで@a_file工程でのラインを削減する

foreach my $filter (@b_file){ 
    @a_file = grep{ /${filter}/} @a_file; 
} 
print Dumper(@a_file); 

：

use strict; 
use warnings; 
use File::Slurp qw(read_file); #cpan-module 
use List::Compare; #cpan-module 

chomp(my @a_file = read_file 'file.txt'); 
chomp(my @b_file = read_file 'forbidden.txt'); 

#here it stores all the lines contained in the 'file.txt' 
#but not in the 'forbidden.txt' in an array 
my @a_file_only = List::Compare->new(\@a_file, \@b_file)->get_Lonly; 

print "$_\n" for @a_file_only; 
#here you could write these lines in a new file to store them. 
#At this point I just print them out. 

新しいアプローチを：

あなたのコードは次のようになります。