- 论坛徽章:
- 0
|
如下两个字符串:
$str1="双面阻焊,油墨型号:ZM-400 WF(指定);颜色:绿色;油墨特性:感光;油墨厚度:厂内管控20+/-5um;导电孔方式:塞孔;无卤素板材,阻焊不可退洗,如要退洗,请提出申请";
$str2="双面阻焊,油墨型号SR2000 LF03HF(指定),油墨厚度:10 30um;颜色:绿色;油墨特性:感光;导电孔方式:开窗/塞孔/单面开窗(L4),单面塞孔;连塞带印,塞孔位置未开窗面不允许聚油,保证孔内有油允许透绿光,不允许透白光,具体位置见客户图纸2;见备注3";
我修改之前的抄的别人的自定义函数如下:
sub get_values{
local $_ = pop;
my $v1;
($v1) = />=([\d.]+)/ ? $1 : do {/油墨型号/g and /([A-Za-z0-9\s\-\(\)\指定\(\)]+)/g};
# $v2 += $1 while (m~\b([\d.]+)(?:sq/ft|ft/sq)~g);
return $v1;
}
可是为什么,得出两个不同的结果,而且还带个“?",
print "油墨型号--->",get_values($str1),"\n";
结果:油墨型号--->?
print "油墨型号--->",get_values($str2),"\n";
结果:油墨型号--->SR2000 LF03HF(指定)?
望高手指教,谢谢~!
|
|