Question

求高手帮忙写个程序，用perl解决一个并集的问题，求可用的编程结果~~~

我有两个txt，一个是a.txt，为：
中
我
大
成
家
一个是b：
中国
中央
我们
大家
成家
要合并成一个文档为：
中：中国 中央
我：我们
大：大家
家：大家 成家 ，就是得到以a文档的元素为key，以b中包含相应汉字的词为value的哈希表

Answer 1

open A, "a.txt";
my @a = <A>; chomp @a;
close A;

open B, "b.txt";
my @b = <B>; chomp @b;
close B;

foreach my $a ( @a ) {
foreach my $b ( @b ) {
print "$a: ";
print "$b " if $b =~ /\Q$a\E/g;

}
print $/;

}

Answer 2

jsdjkfdiwhbdbvn vaknvdbmdnvsmnfdsfwefd