用perl语言写一段脚本提取出文件B中文件A不含有的单词输出到文件C文件A是个词典A文件包含发音但是B文件没有结果也不需要这些发音文件的一部分是这样的：A文件ABANDONADAaxbaendaxney

Question

用perl语言写一段脚本 提取出文件B中文件A不含有的单词输出到文件C 文件A是个词典
A文件包含发音 但是B文件没有 结果也不需要这些发音
文件的一部分是这样的：
A文件
ABANDONADA ax b ae n d ax n ey d ax
ABANDOND ax b ae n d ax n d
ABANDONDED ax b ae n d ax n d ih d
ABANDONED ax b ae n d ax n d
ABANDONEE ax b ae n d ow n iy
ABANDONER ax b ae n d ax n ax
ABANDONER ax b ae n d ax n ax r
ABANDONERS ax b ae n d ax n ax z
ABANDONING ax b ae n d ax n ih ng
.
B文件
HAD
ANIMATION
AND
UM
COMPUTER
WORK
UM
IT
WAS
QUITE
FU
FUNNY
.

Answer 1

请补充两个问题：
一、A文件中间的分隔符是不是空格.
二、就你的例子而言,输出C文件内容是什么,是不是A文件所有行的第一个单词,因为你举例的B文件一个都没有剔除的.


如果我以上对你的本意的猜测正确,那么下面的代码满足你的要求：
my(%W,$word,$line);
#读B
open(FD,'B');
while($line=){
  ($word)=split(/\s+/,$line);
  $W{$word}=1 if ($word ne '');
}
close(FD);
#读A、写C
open(FD,'A');
open(FE,'>C');
while($line=){
  ($word)=split(/\s+/,$line);
  print FE "$word\n" if (! $W{$word});
}
close(FD);
close(FE);