论坛 › Perl › perl的魅力

bgey 发表于 2018-8-30 11:58:10

perl的魅力

#!/bin/env perl　　
# -*- coding: utf-8 -*-
　　

　　
use strict;
　　

　　
my %hash;
　　

　　
while () {
　　
       chomp;
　　
       next if /^$|^#/;
　　
       my @array = split;
　　
       if ($array < 30 || $array > 40) {
　　
         push @{$hash{"$array\t$array\t"}},$array;
　　
       }
　　
}
　　

　　
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

查看完整版本: perl的魅力