Question

perl编程 对比文件A中的内容是否能匹配到字典B中一个单词的一部分 如匹配 则将B中单词输出到文件C

比如 A中是发音abab B中有一个单词及他的发音ABABCDCD ababcdcd 则把该单词输出到C
A文件是这样的abab cccc ddd sss...（没有换行符）
B文件是ABABCDCD ababcdcd
CCC ccc
DDD ddd
EEE eee
SSS sss

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏200（财富值+成长值）

Answer 1

open AHND,'a';
$_=<AHND>;
@Lines=split;
open BHND,'b';
open CHND,'c';
while(<BHND>){
for $re(@Lines){
if(/$re/){
print CHND $_;
last;
}
}
}

追问

为什么输出结果是让电脑死机数量的“ahnd”呢

追答

open AHND,'a';
$_=;
@Lines=split;
open BHND,'b';
open CHND,'>c';
while(){
for $re(@Lines){
if(/$re/){
print CHND $_;
last;
}
}
}
我的输出如下啊：
ABABCDCD ababcdcd
DDD ddd
SSS sss

追问

对不起 我复制时出错了。
还出了一个问题。词典文件b的格式搞错了 b文件里 发音的音素之间有空格 比如AAA a a a 而A文件中没有 比如aaa 。

追答

open AHND,'a';
$_=;
@Lines=split;
open BHND,'b';
open CHND,'>c';
while(){
tr/ //d;
for $re(@Lines){
if(/$re/){
print CHND $_;
last;
}
}
}