怎么在一些既有数字，又有文字的表格中，剔除文字前面的数字

赛萌

两列表格如下：
7元/斤       空
10元一斤    空
8.89元1斤  空
28   1个
30/个 约1500g
34        约2斤
6.8/0.9kg 空
24/2斤  空
24元2斤  空
24元两斤  空



怎么提取出干净的数据：
7       空
10     空
8.89   空
28     1个
30     约1500g
34     约2斤
6.8  空  0.9kg
24   空    2斤
24  空   2斤
24  空  两斤
其实目的是为了求出单价，这个里面按斤数的比较多，就把按个算的，但是没有斤数的最终给剔除了。

jason680

回复 1# 赛萌

$ cat FILE
7元/斤       空
10元一斤    空
8.89元1斤  空
28   1个
30/个 约1500g
34        约2斤


$ perl -pe '{s/([\d.]+)\S*/$1/}' FILE
7       空
10    空
8.89  空
28   1个
30 约1500g
34        约2斤




   

赛萌

回复 2# jason680


    谢谢！也谢谢指点，看来我的水平还是差太多啊。

赛萌

回复 2# jason680


    谢谢！也谢谢指点，看来我的水平还是差太多啊。

赛萌

回复 2# jason680


    恩，最主要的是我想到了替换，但是没想到$1,准确来说是不会

赛萌

回复 2# jason680


    还有一种情况，我刚才没有考虑到是 23/1.5kg  空   这种改怎么半啊  这个kg数是得提取出来的，因为后面要计算单价用23除于1.5kg

sunzhiguolu

回复 6# 赛萌

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. while (<DATA>){
   
6.         s!(\/|两)!$1 eq '/' ? '=' : 2!e;
   
7.         if (m/(?:2斤|kg)(?!\Z)/ and s/(?:=|元)(\S*)\s*(\S*)/\t$2\t$1/){
   
8.                 print;
   
9.                 next;
   
10.         }
    
11.         print if (s/\A([\d.]*)\S*/$1/);
    
12. }
    
13. 
    
14. __DATA__
    
15. 7元/斤       空
    
16. 10元一斤    空
    
17. 8.89元1斤  空
    
18. 28   1个
    
19. 30/个 约1500g
    
20. 34        约2斤
    
21. 6.8/0.9kg 空
    
22. 24/2斤  空
    
23. 24元2斤  空
    
24. 24元两斤  空

复制代码

sunzhiguolu

测试环境 => Win7, 输出结果如下:

1. 7       空
   
2. 10    空
   
3. 8.89  空
   
4. 28   1个
   
5. 30 约1500g
   
6. 34        约2斤
   
7. 6.8     空      0.9kg
   
8. 24      空      2斤
   
9. 24      空      2斤
   
10. 24      空      2斤

复制代码

jason680

回复 6# 赛萌

$ cat FILE
7元/2斤       空
8.89元1斤  空
30/个 约1500g
23/1.5kg  空
34        约2斤

$ perl -pe '{s|^([\d.]+)[^\s\d]+([\d.]+)\S*|$1/$2|e;s/([\d.]+)\S*/$1/}' FILE
3.5       空
8.89  空
30 约1500g
15.3333333333333  空
34        约2斤

   

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. while (<DATA>){
   
6.         s/两/2/;
   
7.         s!([\d.]*)(g|kg)!$2 eq 'g' ? sprintf ("%.2f斤", $1 / 500) : sprintf ("%.2f斤", $1 * 2)!e;
   
8.         s!\A([\d.]*)\D*([\d.]*)斤\N*!join ("\t", sprintf ("%.2f", $1 / $2), '空')!e;
   
9.         print;
   
10. }
    
11. 
    
12. __DATA__
    
13. 30/个 约1500g
    
14. 34        约2斤
    
15. 6.8/0.9kg 空
    
16. 24/2斤  空
    
17. 24元2斤  空
    
18. 24元两斤  空

复制代码