Question

perl如何匹配两个文本含有相同字符串的行，并且把含有相同字串的行抽取出来?

perl如何匹配两个文本含有相同字符串的行，并且把含有相同字串的行抽取出来?
如下文本A.TXT和文本B.TXT内容：我想用A文本件去匹配B文件开头的英文字符，如果匹配成功则将B文本第一、第二例字串提取出来（例如：B文件含有A文件第一行中的drl，则提取“基材钻孔 、任意面向上”
含有gtsd，则提取“正面覆盖膜、膜面向下”）；
A.TXT
2015-DAdrl
2015-DAgtsd
2015-DAgbsd
2015-DAdjd
B.TXT
drl 基材钻孔 任意面向上
gtsd 正面覆盖膜 膜面向下
gbsd 反面覆盖膜 膜面向下
djd 灯胶 白色面向上

Answer 1

暗淡作为字符串'声明一个字符串，点击看详细昏暗B作为Integer`声明塑料点击看详细暗淡作为字符串，B为整数`声明的字符串，b为整形点击看详细静态C作为字符串'静态声明的字符串。

Answer 2

哥们，你是做软板的脚本吧