请教如何在文本中对特殊字段进行分类统计的问题

enigmain

UID: 28665
帖子: 95
积分: 218
在线时间: 12 小时

1^# enigmain 发表于 2008-11-15 16:31

请教如何在文本中对特殊字段进行分类统计的问题

我现在有如下格式的文本文件：

C1 Chinese Acad Agr Sci,.........., Peoples R China.
Chinese Acad Agr Sci,.........., Peoples R China.
Emory Univ, USA.

C1 Dalian Univ Technol, ......Peoples R China.

C1 Geoforschungszentrum Potsdam, .........Germany.
Chinese Acad Sci........., Peoples R China.
Princeton Univ........., USA.
Univ Miami........., USA.

我想提取每段中C1后面的国家名字（China，USA，Germany等）并且进行分类统计，请问我该如何才能办到？
输出格式为：
C1:China：2, USA：1, Germany：1
C1:China:3, USA:0, Germany:1
C1:......
......

请大家帮忙，谢谢了！

smonkey0

UID: 42438
帖子: 74
积分: 170
在线时间: 7 小时

2^# smonkey0 发表于 2008-11-16 10:18

[Copy to clipboard] [ - ]

CODE:

use strict;
use warnings;
my %count=();
while(<DATA>){
chomp;
if(/^C1.*\b(\w+)\b\.$/){
      if(%count){
         print join ",",%count,"\n";
         undef %count;
      }
      $count{$1}++;
}elsif(/.*\b(\w+)\b\.$/){
      $count{$1}++;
}
}
if(%count){
print join ",",%count,"\n";
undef %count;
}

[Copy to clipboard] [ - ]

CODE:

USA,1,China,2,
China,1,
Germany,1,USA,2,China,1,

只是匹配，其他的自己改吧。。

enigmain

UID: 28665
帖子: 95
积分: 218
在线时间: 12 小时

3^# enigmain 发表于 2008-11-16 10:40

多谢smonkey0
运行成功了
我再好好看看，消化消化