摘要： 普通青年 3 文艺青年 3 二逼青年 8普通男友 5 文艺男友 2 二逼男友 90901 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 )1 阅读全文