perl的魅力

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

网上看到一道题，内容如下。   123456      23           1000 234567      34           1234 345678      21           1234 456789      45           4532 234567      34           1233 234567      34           1234 345678      21           3445   其中第一列为ID号  第二列为级别   第三列为时间   题目要求，写一个脚本处理文本，处理结果为   第一列显示ID 第二列过滤级别<30或者级别>40 第三列显示内容为，若为相同的ID号，计算时间之和

总觉得这个题目有点问题，数据有点不对应，不多说了，直接上代码

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

#!/bin/env perl # -*- coding: utf-8 -*-   use  strict;   my  %hash ;   while  (<DATA>) {         chomp ;         next  if  /^$|^ #/;         my  @array  =  split ;         if  ( $array [1] < 30 ||  $array [1] > 40) {             push  @{ $hash { "$array[0]\t$array[1]\t" }}, $array [2];         } }   for  my  $num  ( sort  keys  %hash ) {      my  @a  = @{ $hash { $num }};      printf  "%d" , $num ;      printf  sum(\ @a );      printf  "\n" ; }   sub  sum {      my  ( $ref ) =  @_ ;      my  $i  = 0;      for  (@ $ref ) {           $i  +=  $_ ;      }      return  $i ; }   __DATA__ 123456      23           1000 234567      34           1234 345678      21           1234 456789      45           4532 234567      34           1233 234567      34           1234 345678      21           3445

运行结果:

1 2 3

123456  23      1000 345678  21      4679 456789  45      4532

本文转自dongfang_09859 51CTO博客，原文链接：http://blog.51cto.com/hellosa/1554779，如需转载请自行联系原作者