[perl] 正则表达式实现多模式匹配
普通青年 3 文艺青年 3 二逼青年 8普通男友 5 文艺男友 2 二逼男友 9090
1 use strict;
2 use warnings;
3 my %hash = ();
4 my $line = "";
5 open FIN, "<$ARGV" 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 }
页:
[1]