請(qǐng)教，數(shù)據(jù)收集統(tǒng)計(jì)

jzp520520

由于很長時(shí)間沒有用perl了，工作也和編程不沾邊，perl 忘記的厲害，自己寫了很長時(shí)間沒寫出來。想來想去還是用二維數(shù)組比較好，還來請(qǐng)大神幫忙。
由以下兩段，進(jìn)行數(shù)據(jù)收集，然后進(jìn)行匯總，得出第三段的結(jié)果。即各項(xiàng)數(shù)據(jù)一一相加，百分比的大神就可以忽略，后續(xù)我來做修改。

襄陽一部3月11日
今日實(shí)際申請(qǐng)14件
批款1件10萬
通過1件 拒絕7件 通過率12%
簽約8萬
累計(jì)申請(qǐng)96件
累計(jì)簽約放款80萬
待簽15萬
簽約達(dá)成率13%
當(dāng)前人力55人
開單10人 開單率18%
明日預(yù)計(jì)申請(qǐng)12件


宜昌一部3月11日
今日實(shí)際申請(qǐng)7件
批款1件4萬
通過1件 拒絕4件 通過率20%
簽約7.6萬
累計(jì)申請(qǐng)38件
累計(jì)簽約放款42.8萬
待簽11萬
簽約達(dá)成率6.9%
當(dāng)前人力40人
開單9人 開單率22.5%
明天預(yù)計(jì)申請(qǐng)10件



分中心3月11日
今日實(shí)際申請(qǐng)21件
批款2件14萬
通過2件 拒絕11件 通過率15%
簽約15.6萬
累計(jì)申請(qǐng)134件
累計(jì)簽約放款122.8萬
待簽26萬
簽約達(dá)成率10.5%
當(dāng)前人力95人
開單19人 開單率20%
明日預(yù)計(jì)申請(qǐng)22件

jzp520520

如果 大神 想幫到底，那就把 百分比的也寫一下，通過率=通過/（通過+拒絕），達(dá)成率=簽約放款/1170， 開單率=開單/當(dāng)前人力。
另以后可能加入荊門、荊州等地區(qū)數(shù)據(jù)。
怎么給人積分？

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 "今日實(shí)際申請(qǐng)$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 "累計(jì)申請(qǐng)$aStat[8]件";
    
23. say "累計(jì)簽約放款$aStat[9]萬";
    
24. say "待簽$aStat[10]萬";
    
25. printf "簽約達(dá)成率%.1f%%\n", $aStat[9] / 11.7;
    
26. say "當(dāng)前人力$aStat[11]人";
    
27. printf "開單%d人 開單率%d%%\n", $aStat[12], $aStat[12] * 100 / $aStat[11];
    
28. say "明日預(yù)計(jì)申請(qǐng)$aStat[-1]件";
    
29. __DATA__
    
30. 襄陽一部3月11日
    
31. 今日實(shí)際申請(qǐng)14件
    
32. 批款1件10萬
    
33. 通過1件 拒絕7件 通過率12%
    
34. 簽約8萬
    
35. 累計(jì)申請(qǐng)96件
    
36. 累計(jì)簽約放款80萬
    
37. 待簽15萬
    
38. 簽約達(dá)成率13%
    
39. 當(dāng)前人力55人
    
40. 開單10人 開單率18%
    
41. 明日預(yù)計(jì)申請(qǐng)12件
    
42. 
    
43. 
    
44. 宜昌一部3月11日
    
45. 今日實(shí)際申請(qǐng)7件
    
46. 批款1件4萬
    
47. 通過1件 拒絕4件 通過率20%
    
48. 簽約7.6萬
    
49. 累計(jì)申請(qǐng)38件
    
50. 累計(jì)簽約放款42.8萬
    
51. 待簽11萬
    
52. 簽約達(dá)成率6.9%
    
53. 當(dāng)前人力40人
    
54. 開單9人 開單率22.5%
    
55. 明天預(yù)計(jì)申請(qǐng)10件

復(fù)制代碼

回復(fù) 2# jzp520520


   

jzp520520

太感謝大神了，我先好好研究下！ 回復(fù) 3# sunzhiguolu


   

sunzhiguolu

可以用 splice 函數(shù)將數(shù)組再優(yōu)化下, 方便輸出.

jzp520520

local $/ = ‘’;換成local $/ = "\n\n";也可以，但我就是看不懂local $/ = ‘’;是怎么回事,大神給解釋下？回復(fù) 5# sunzhiguolu


   

sunzhiguolu

回復(fù) 6# jzp520520
\n\n => \n\n
''     => \n+

   

jzp520520

謝謝了！還以為要用二維數(shù)組呢，這么簡(jiǎn)潔的一句就解決了，佩服！