你匹配的结果能给看一下么？比较容易发现错误。我觉得，首先你的正则里面的 .* 写的就不对，因为有可能匹配到下一个字符>号，在这个.中你要排除>号,写成[^\>]*
在读文件B前把默认的分隔符“\n”换成“>”就可以，$/=">";while(){ …………
