正则---请教

beyondlee1

如下两个字符串：

$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(指定)?

望高手指教，谢谢~！

beyondlee1

注：我只要得出类似"SR2000 LF03HF(指定)"的结果，要考虑格式可能为"SR2000-LF03HF (指定)"，中间有个"-".

sunzhiguolu

你希望得到的结果是什么, 贴出来看下? (将处理的条件 详细说明下)

beyondlee1

我在二楼已经注明了，
重复一遍
我想要得到“SR2000 LF03 HF(指定)"这个格式的结果，有时候”指定“二字没有可以忽略，要考虑格式可能为"SR2000-LF03-HF (指定)"，中间有个"-".

现只有以下三种格式：
$str1="双面阻焊,油墨型号：ZM-400 WF（指定）;颜色:绿色;油墨特性:感光;油墨厚度:厂内管控20+/-5um;导电孔方式:塞孔;无卤素板材,阻焊不可退洗,如要退洗,请提出申请";
$str2="双面阻焊,油墨型号SR2000 LF03HF(指定)，油墨厚度:10 30um;颜色:绿色;油墨特性:感光;导电孔方式:开窗/塞孔/单面开窗(L4),单面塞孔;连塞带印，塞孔位置未开窗面不允许聚油,保证孔内有油允许透绿光,不允许透白光,具体位置见客户图纸2;见备注3";
$str3="颜色:白色 油墨型号(指定):ZM 400WF 双面字符(SET内为单面字符：SSB面) 我司UL位置：SST/SSB 周期位置：SST/SSB,周期:周年(54个/PNL) 模穴号位置:SST/SSB 厂内料号E0I64084B PNL内为阴阳拼版";

谢谢~！

beyondlee1

总之：将油墨型号后面的"SR2000 LF03 HF(指定)"这个格式的型号读取出来。

谢谢~！

sunzhiguolu

1. /油墨型号(?:(?![a-z0-9]).)*((?:\s*[-a-z0-9]+)+)/i

复制代码

beyondlee1

不行啊

我做成函数，这样，得以只有一个数字1.
sub get_values{
    my $v1=shift;
    $v1 =$v1=~/油墨型号(??![a-z0-9]).)*((?:\s*[-a-z0-9]+)+)/i;
    return $v1;
}

beyondlee1

1. /油墨型号(?:(?![a-z0-9]).)*((?:\s*[-a-z0-9]+)+)/i

复制代码

不行

sunzhiguolu

1. sub get_values{
   
2.     my $val = shift;
   
3.     ($val) = $val =~ /油墨型号(?:(?![a-z0-9]).)*((?:\s*[-a-z0-9]+)+)/i;
   
4.     return $val;
   
5. }
   

复制代码

beyondlee1

谢谢，这个还行
三个字符串输出结果：
ZM-400 WF
SR2000 LF03HF
ZM 400WF


但我还需要后的"(指定)"，有办法吗？

还有，注意"()"，有时候是全角状态的"（）"，
我修改成如：

1. sub get_values{
   
2.        my $val = shift;
   
3.       ($val) = $val =~ /油墨型号(?:(?![a-z0-9]).)*((?:\s*[-a-z0-9()（指定）]+)+)/i;
   
4.       return $val;
   
5. }

复制代码

结果为：ZM-400 WF（指定）
SR2000 LF03HF(指定)?
ZM 400WF

后面带个?号是怎么回事？

可以再看看吗？

感谢~！