- 论坛徽章:
- 307
|
回复 3# 老家的篱笆
- #!/usr/bin/perl
- use strict;
- use warnings;
- my ($flag, $sum, @aData) = (0, 0, ());
- while (<DATA>){
- $flag = 1 if (/\A=/);
- $flag = 0 if (/time_hour\s+=\s+(\d+)/ and $1);
- push (@aData, $1) if ($flag and /duration\s+=\s+(\d+)/);
- }
- $sum += $_ for @aData;
- printf ("%.2f\n", $sum / @aData);
- __DATA__
- ======EVENT======
- header:
- event_id = bearer_update
- event_result = success
- time_hour = 0
- time_minute = 0
- time_second = 0
- time_millisecond = 21
- duration = 83
- cause_protocol = gtpv2
- ======EVENT======
- header:
- event_id = bearer_update
- event_result = success
- time_hour = 0
- time_minute = 0
- time_second = 0
- time_millisecond = 284
- duration = 77
- cause_protocol = gtpv2
- cause_code = request_
- ======EVENT======
复制代码
|
|