普通青年    3   文艺青年    3   二逼青年    8

普通男友    5   文艺男友    2   二逼男友    9090

 

 1 use strict;

  2 use warnings;

  3 my %hash = ();

  4 my $line = "";

  5 open FIN, "<$ARGV[0]" or die "cannot open inputfile:$!\n";

  6 while( defined($line=<FIN>) )

  7 {

  8     chomp $line;

  9

 10     while( $line=~m/([^.]*?)\s+(\d+)/g )

 11     {

 12        $hash{$1} += $2;

 13

 14     }

 15

 16

 17 }

 18 while( (my $key, my $value) = each %hash)

 19 {

 20     print "$key=>$value\n";

 21 }