谁有现成的字符串查找perl或者pyron程序：file A有一些数据列表，在file B中查找file A中存在的数据，并把相应的行打印出
自己不太懂。刚学。请师傅们如果有。请给我一个。
[解决办法]
伪代码如下
pseudo code
{{{
#!python
keydict = set()
for line in file a:
keydict.add(line)
for line in file b:
if line.find(any key in keydict):
print line
}}}
[解决办法]
怎么没缩进：
use strict;
open (A, 'a.txt') or die "open error: $!";
open (B, 'b.txt') or die "open error: $!";
my %data;
while (<A>) {
chomp;
$data{$_} = 1;
}
while (<B>) {
chomp;
if ($data{$_}) {
print "$_\n";
}
}
[解决办法]
晕，这个是笔误。
#!/usr/bin/perl
open F1,"a.txt";
%a = map {chomp;$_=>1} <F1>;
open F2,"b.txt";
%b = map {chomp;$_=>1} <F2>;
for (keys %a, kyes %b) { $union{$_}++ && $isect{$_}++ };
@union = keys %union; #并集
@isect = keys %isect; #交集
close F1;
close F2
[解决办法]
为什么不用grep呢？grep专为对比列表用的。
> >a.txt
1
2
3
4
5
> >b.txt
1
3
4
5
7
9
use strict;
open (A, 'a.txt ') or die "open error: $!";
open (B, 'b.txt ') or die "open error: $!";
while ( <A >) {
chomp;
$data{$_} = 1;
}
my @b=<B>;
my @same = grep( $data{$_},@b );
print @same;
