如何完整写出这个正则匹配！急...

费用月份  付费编号   付费名称        设备号码    费用名称             时长    次数    费用(元)
200709    100        固定电话        91113563    来电显示/短信息费    1345     100    102.20
200709    100        固定电话        91113563    呼出限制功能费       0        0      0.00        
小计 : 费用:102.20元 次数:100 时长:1345
200709    100        固定电话        91117777    来电显示/短信息费    0        0      0.00
200709    100        固定电话        91117777    呼出限制功能费       1234     200    210.11   
小计 : 费用:210.11元 次数:200 时长:1234

我需要得到如下结果：
91113563       费用:102.20元
91117777       费用:210.11元

请教大家，如何解决？

用 [quote][/quote] 给出你的原始文件。

字段中不会出现空格吧?

老大,待处理的文件原本是EXCEL表格形式的,因为我不懂如何用PERL的EXCEL模块,所以先简单点,按文本模式写出来,看看该如何得到我所期待的结果.还请老大指教!谢谢了先!

Spreadsheet::ParseExecl

EXCEL复制到文本就是以tab  分割，则\t分割，很容易解决。

用Perl如何实现复制Excel到文本?

这个问题用awk 很方便吧。

open FILE , "oo" ;
my %data ;
my @data ;
for ( <FILE> ) {
        next unless /^\d/;
        @data =  split ;
        $data{$data[3]}+=$data[7];

}
my @dat = %data ;
print "@dat" , "\n" ;