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 灯胶白色面向上

举报该问题

推荐答案推荐于2016-08-24

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

温馨提示：答案为网友推荐，仅供参考

当前网址：http://44.wendadaohang.com/zd/WYWVR6WYWRDDV33KWW.html

其他回答

第1个回答 2018-12-20

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

相似回答

perl中如何提取包含相同的字符串答：按照你的要求编写的perl程序如下(先用正则表达式提取,再用正则表达式替换)abc = ("abc","def","ghi","gkl","mno","abc.qqq","def.qqq","ghi.qqq","gkl.qqq","mno.qqq");$size=@abc;@www=();for($i=0;$i<$size;$i++){ $string=$abc[$i]; if($string=~ m/[A-Za-z]+...

perl模式匹配答：/d[eE]+f/匹配dEdf和dEEEeeeEef，+表示重复它前面的那个字符，这个表达式里面+前面的是[eE]，是e或者E，它们两个的任意组合都可以匹配。所以，你把+理解为多个相同是错的，正确的是重复它前面的字符一次或者多次。/d[^deE]f/匹配d加非e字符加f的字符串，例如可以匹配daf、dbf、dXf，但是不能匹...

如何用PERL语言在字符串寻找指定的字符是否存在.答：1.Result = ($Data =~ /[<>]/)?"FAIL":"PASS";2.($Data =~ /\)(.*?)=/) and ($R = $1);

利用Perl查找匹配打印字符串答：如果txt1和txt2是两个文件的话，编程如下 !/usr/bin/perluse strict;# 定义一个哈希变量存放结果my %hash;open TXT1, "<txt1";foreach my $line (<TXT1>){ # 去除文件的回车换行符 chop($line) while ($line =~ /[\r\n]$/); # 拆分每一行 my ($name, $path) = ...

大家正在搜

perl替换字符串里的字符 perl匹配字符串是否存在 perl字符串如何转换成日期如何比较两个字符串 perl替换多个字符串 perl判断字符串相等 perl字符串截取 perl字符串转数字如何比较字符串是否相等