提取数字

beyondlee1

写一个函数行吗？我到时传入字符串，就出结果了，谢谢

sunzhiguolu

回复 10# beyondlee1

锡厚：工艺要求QFP位置:2.5-40um,单点2.0um,平均>=2.5um;;锡条：SN100N(指定)；锡面积(pnl)：0.155sq/ft(8.52%)";
锡厚:工艺要求QFP位置:2.5-40um,单点2.0um,平均>=2.8um;，锡厚内部要求控制2.5-40um 锡条（指定）：ANCHEN SN100N 锡面积(PNL):0.814sq/ft(11.44%)   
锡厚：2um(min);锡面积(pnl)：0.6sq/ft(13.6%)

这是你 3 次提供的示例文本.
假设记录中没有 平均>=2.8um 这样的串, 那么就提取 锡厚内部要求控制2.5-40um 锡条（指定）,
有一点我不太明白, 当记录中没有包含 平均>=2.8um 这样的串, 需要提取的那个 锡厚内部要求控制2.5-40um 锡条（指定） 中的 那个数值 有什么规律吗?
   

beyondlee1

1,如果有类似 “2.5-40um,和平均>=2.5um,”这样的字串,只取 >=2.5um中的2.5数字;
  否则只取类似2.5-40um中的数字2.5(即最小值);
  "0.155sq/ft(8.52%)"，这个类似字串一般来说都会有

2,锡厚：2um(min);锡面积(pnl)：0.6sq/ft(13.6%)，这个字串出现的情况也有，只取2um中的2,和0.6就好了。

谢谢！~最好能写个函数，感谢~

sunzhiguolu

我的意思是, 当记录中没有包含 平均>=2.8um 这样的串, 需要提取的那个 锡厚内部要求控制2.5-40um 锡条（指定） 中的 数值 2.5 所在记录中的位置有没有
什么规律, 比如一行记录中除了没有 平均>=2.8um 却包含多个数值, 进行数值提取的时候, 如何取舍? 不知道我说明白没有...

beyondlee1

位置没有固定的，也没有规律。

但如：2.5-40um,单点2.0um,平均>=2.5um;;锡条：SN100N(指定)；锡面积(pnl)：0.155sq/ft(8.52%)";

类似"2.5-40um" 一般来在前 ," 平均>=2.5um "在中间，"0.155sq/ft(8.52%)"在最后。

可不可以判断2.5-40中的"-"符号，和">="符号,来取值?

sunzhiguolu

试下,

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. sub get_values{
   
7.     local $_ = pop;
   
8.     my @aData = />=([\d.]+)/ ? $1 : /([\d.]+)um/;
   
9.     push (@aData, m~([\d.]+)sq/ft~);
   
10.     \@aData;
    
11. }
    
12. 
    
13. my @aData;
    
14. push (@aData, get_values ($_)) while (<>);
    
15. print "@$_\n" for @aData;
    
16. 
    

复制代码

beyondlee1

my $str="锡厚：工艺要求QFP位置:2.5-40um,单点2.0um,平均>=2.6u';;锡条：SN100N(指定)；锡面积(pnl)：0.155sq/ft(8.52%)";

sub get_values{
    local $_ = pop;
    my @aData = />=([\d.]+)/ ? $1 : /([\d.]+)um/;
    push (@aData, m~([\d.]+)sq/ft~);
    \@aData;
}

my @aData;

push (@aData, get_values ($str)) while (<>);
print "@$_\n" for @aData;

是这样调用？感觉一死循环，一直在运行

sunzhiguolu

如果是这样的话, 这样试下:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. sub get_values{
   
6.     local $_ = pop;
   
7.     my @aData = />=([\d.]+)/ ? $1 : /([\d.]+)um/;
   
8.     push (@aData, m~([\d.]+)sq/ft~);
   
9.     \@aData;
   
10. }
    
11. 
    
12. my $str = "锡厚：工艺要求QFP位置:2.5-40um,单点2.0um,平均>=2.6u';;锡条：SN100N(指定)；锡面积(pnl)：0.155sq/ft(8.52%)";
    
13. my $ra = get_values ($str);
    
14. print "@$ra\n";
    

复制代码

perl abc.pl
--------------------------------
2.6 0.155

beyondlee1

2.5-40um，这里你取值是后面的最大数40 ?

就这个，其它还没有发现问题

sunzhiguolu

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.     push (@aData, m~([\d.]+)sq/ft~);
   
9.     \@aData;
   
10. }
    
11. 
    
12. my $str = "锡厚：工艺要求QFP位置:2.5-40um,单点2.0um,平均>=2.6u';;锡条：SN100N(指定)；锡面积(pnl)：0.155sq/ft(8.52%)";
    
13. my $ra = get_values ($str);
    
14. print "@$ra\n";

复制代码