( bigwig | 2011. 04. 18., h – 20:24 )

#!perl

use 5.010;
use strict;
use warnings;
use Scalar::Util qw(looks_like_number);

my %data;

while ( my $line = <ARGV> ) {
    chomp $line;
    my ( $cnt, $key ) = split /:/, $line, 2;
    $data{"$key"} += $cnt if defined $key and looks_like_number $cnt;
}

printf "%3s:%03d\n", $_, $data{$_} for sort keys %data;