提取数字

beyondlee1

可以了，没有问题。

非常感谢，我学PERL没多久，感觉你的代码太深奥了。有一些找资料都没有找到解释

谢谢~  有什么推荐的书看吗?

sunzhiguolu

Perl 语言入门, 这是我现在正在学习的入门书籍.

beyondlee1

有新情况，看看大侠有没有时间看看

$str="锡厚:表面锡厚1-40um，孔内锡厚最小7.5um，孔拐角处锡厚最小1um；锡面积(pnl):a：0.557sq/ft(13%)，b：0.279sq/ft(13%);钻咀为0.4和0.5mm的via孔接受锡珠入孔";

之前的要求不变，但出新变化，就是出现a：0.557sq/ft(13%)，b：0.279sq/ft(13%),要求将其中的0.557+0.279，谢谢
现在只提取到0.557

如果出现这种情况，我要这两个数的相加值.

感谢！

104359176

哥，麻烦你当一个脚本写，我好移植.

sunzhiguolu

回复 23# beyondlee1

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. sub get_values{
   
6.     local $_ = pop;
   
7.     my @aData = />=([\d.]+)/ ? $1 : /([\d.]+)/;
   
8.     $aData[1] += $1 while (m~\b([\d.]+)sq/ft~g);
   
9.     \@aData;
   
10. }
    
11. 
    
12. my $str = "锡厚：工艺要求QFP位置:2.5-40um,单点2.0um,平均>=2.6u';;锡条：SN100N(指定)；锡面积(pnl)：0.155sq/ft(8.52%)";
    
13. $str = "锡厚:表面锡厚1-40um，孔内锡厚最小7.5um，孔拐角处锡厚最小1um；锡面积(pnl):a：0.557sq/ft(13%)，b：0.279sq/ft(13%);钻咀为0.4和0.5mm的via孔接受锡珠入孔";
    
14. my $ra = get_values ($str);
    
15. print "@$ra\n";
    

复制代码

1 0.836

   

beyondlee1

可以了，谢谢~！

但有新情况，如 $str1="无铅锡型号:SN100CL喷锡厚度：2-36um喷锡面积：0.11ft/sq(set)";

直接提取100，后面的忽略了。

2和0.11?

sunzhiguolu

回复 26# beyondlee1

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. sub get_values{
   
6.     local $_ = pop;
   
7.     my ($v1, $v2);
   
8.     ($v1) = />=([\d.]+)/ ? $1 : do {/锡厚/g and /([\d.]+)/g};
   
9.     $v2 += $1 while (m~\b([\d.]+)(?:sq/ft|ft/sq)~g);
   
10.     [$v1, $v2];
    
11. }
    
12. 
    
13. my $str = "锡厚：工艺要求QFP位置:2.5-40um,单点2.0um,平均>=2.6u';;锡条：SN100N(指定)；锡面积(pnl)：0.155sq/ft(8.52%)";
    
14. $str = "锡厚:表面锡厚1-40um，孔内锡厚最小7.5um，孔拐角处锡厚最小1um；锡面积(pnl):a：0.557sq/ft(13%)，b：0.279sq/ft(13%);钻咀为0.4和0.5mm的via孔接受锡珠入孔";
    
15. $str = "无铅锡型号:SN100CL喷锡厚度：2-36um喷锡面积：0.11ft/sq(set)";
    
16. my $ra = get_values ($str);
    
17. print "@$ra\n";
    

复制代码

perl abc.pl
-------------------------------------------------
2 0.11

   

beyondlee1

$str="厂内管控:锡厚:1-40um 喷锡面积(PNL):0.378spft(6.7%)";
my $ra = get_values ($str);
print "@$ra\n";

出现此错误：
Use of uninitialized value in join or string at ef3.pl line 18.

有空帮忙看看，谢谢~

beyondlee1

知道原因了，谢谢~，少量的数据我手动查看一下吧，太乱了，少量一数据完全没有规律。

谢谢~

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. sub get_values{
   
6.     local $_ = pop;
   
7.     my ($v1, $v2);
   
8.     ($v1) = />=([\d.]+)/ ? $1 : do {/锡厚/g and /([\d.]+)/g};
   
9.     $v2 += $1 while (m~\b([\d.]+)(?:sq/ft|ft/sq|spft)~g);
   
10.     [$v1, $v2];
    
11. }
    
12. 
    
13. my @aData;
    
14. $aData[0] = "锡厚：工艺要求QFP位置:2.5-40um,单点2.0um,平均>=2.6u';;锡条：SN100N(指定)；锡面积(pnl)：0.155sq/ft(8.52%)";
    
15. $aData[1] = "锡厚:表面锡厚1-40um，孔内锡厚最小7.5um，孔拐角处锡厚最小1um；锡面积(pnl):a：0.557sq/ft(13%)，b：0.279sq/ft(13%);钻咀为0.4和0.5mm的via孔接受锡珠入孔";
    
16. $aData[2] = "无铅锡型号:SN100CL喷锡厚度：2-36um喷锡面积：0.11ft/sq(set)";
    
17. $aData[3] = "厂内管控:锡厚:1-40um 喷锡面积(PNL):0.378spft(6.7%)";
    
18. 
    
19. print "@{get_values($_)}\n" for @aData;
    

复制代码

perl abc.pl
-------------------------------------------------
2.6 0.155
1 0.836
2 0.11
1 0.378