Question

用PERL 写个例子

有2组文件
1组文件是 A（5483）SDF
B（5540）LK
等等
第二组文件是 51
5540
等等

现在我要提取相同数字 的内容提出来
结果是 B（5540）LK

Answer 1

open SRC, "file2.txt" or die "$! file2"; # 第 2 组

my @data = <SRC>;
chomp @data;
close SRC;

open SRC, "file1.txt" or die "$! file1"; # 第 1 组

while ( my $line = <SRC> ) {
print $line.$/ if grep { $line =~ /[^\d]$_[^\d]/ } @data ;
}
close SRC;

Answer 2

open IN1,"file1";
open IN2,"file2";
while(<IN2>){
chomp();
$hash{$_}++;
}

while(<IN1>){
($value)=/(\d+)/;
print if exists $hash{$value};
}

这个可用