怎么在一些既有數(shù)字，又有文字的表格中，剔除文字前面的數(shù)字

賽萌

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



怎么提取出干凈的數(shù)據(jù)：
7       空
10     空
8.89   空
28     1個
30     約1500g
34     約2斤
6.8  空  0.9kg
24   空    2斤
24  空   2斤
24  空  兩斤
其實目的是為了求出單價，這個里面按斤數(shù)的比較多，就把按個算的，但是沒有斤數(shù)的最終給剔除了。

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數(shù)是得提取出來的，因為后面要計算單價用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

測試環(huán)境 => Win7, 輸出結(jié)果如下:

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元兩斤  空

復制代碼