[perl] 正则表达式实现多模式匹配

普通青年    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 }