请教，数据收集统计

jzp520520

由于很长时间没有用perl了，工作也和编程不沾边，perl 忘记的厉害，自己写了很长时间没写出来。想来想去还是用二维数组比较好，还来请大神帮忙。
由以下两段，进行数据收集，然后进行汇总，得出第三段的结果。即各项数据一一相加，百分比的大神就可以忽略，后续我来做修改。

襄阳一部3月11日
今日实际申请14件
批款1件10万
通过1件 拒绝7件 通过率12%
签约8万
累计申请96件
累计签约放款80万
待签15万
签约达成率13%
当前人力55人
开单10人 开单率18%
明日预计申请12件


宜昌一部3月11日
今日实际申请7件
批款1件4万
通过1件 拒绝4件 通过率20%
签约7.6万
累计申请38件
累计签约放款42.8万
待签11万
签约达成率6.9%
当前人力40人
开单9人 开单率22.5%
明天预计申请10件



分中心3月11日
今日实际申请21件
批款2件14万
通过2件 拒绝11件 通过率15%
签约15.6万
累计申请134件
累计签约放款122.8万
待签26万
签约达成率10.5%
当前人力95人
开单19人 开单率20%
明日预计申请22件

jzp520520

如果 大神 想帮到底，那就把 百分比的也写一下，通过率=通过/（通过+拒绝），达成率=签约放款/1170， 开单率=开单/当前人力。
另以后可能加入荆门、荆州等地区数据。
怎么给人积分？

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use v5.14;
   
5. 
   
6. local $/ = '';
   
7. my @aStat;
   
8. while (<DATA>){
   
9.         my @aNums = m/[\d.]++(?!%)/g;
   
10.         unless (@aStat){
    
11.                 @aStat = @aNums;
    
12.         }else{
    
13.                 $aStat[$_] += $aNums[$_] foreach (2 .. $#aNums);       
    
14.         }
    
15. }
    
16. 
    
17. say "分中心$aStat[0]月$aStat[1]日";
    
18. say "今日实际申请$aStat[2]件";
    
19. say "批款$aStat[3]件$aStat[4]万";
    
20. printf "通过%d件 拒绝%d件 通过率%.2d%%\n", $aStat[5], $aStat[6], $aStat[5] / ($aStat[5] + $aStat[6]) * 100;
    
21. say "签约$aStat[7]万";
    
22. say "累计申请$aStat[8]件";
    
23. say "累计签约放款$aStat[9]万";
    
24. say "待签$aStat[10]万";
    
25. printf "签约达成率%.1f%%\n", $aStat[9] / 11.7;
    
26. say "当前人力$aStat[11]人";
    
27. printf "开单%d人 开单率%d%%\n", $aStat[12], $aStat[12] * 100 / $aStat[11];
    
28. say "明日预计申请$aStat[-1]件";
    
29. __DATA__
    
30. 襄阳一部3月11日
    
31. 今日实际申请14件
    
32. 批款1件10万
    
33. 通过1件 拒绝7件 通过率12%
    
34. 签约8万
    
35. 累计申请96件
    
36. 累计签约放款80万
    
37. 待签15万
    
38. 签约达成率13%
    
39. 当前人力55人
    
40. 开单10人 开单率18%
    
41. 明日预计申请12件
    
42. 
    
43. 
    
44. 宜昌一部3月11日
    
45. 今日实际申请7件
    
46. 批款1件4万
    
47. 通过1件 拒绝4件 通过率20%
    
48. 签约7.6万
    
49. 累计申请38件
    
50. 累计签约放款42.8万
    
51. 待签11万
    
52. 签约达成率6.9%
    
53. 当前人力40人
    
54. 开单9人 开单率22.5%
    
55. 明天预计申请10件

复制代码

回复 2# jzp520520


   

jzp520520

太感谢大神了，我先好好研究下！ 回复 3# sunzhiguolu


   

sunzhiguolu

可以用 splice 函数将数组再优化下, 方便输出.

jzp520520

local $/ = ‘’;换成local $/ = "\n\n";也可以，但我就是看不懂local $/ = ‘’;是怎么回事,大神给解释下？回复 5# sunzhiguolu


   

sunzhiguolu

回复 6# jzp520520
\n\n => \n\n
''     => \n+

   

jzp520520

谢谢了！还以为要用二维数组呢，这么简洁的一句就解决了，佩服！