Changeset 4756


Ignore:
Timestamp:
11/05/08 23:17:27 (8 years ago)
Author:
werner
Message:

Skip measurements for which no file is available.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • developers/werner/wlan-perf/report

    r4748 r4756  
    66    local ($name, *rate, *csw, *cpu) = @_; 
    77 
    8     open(F, $name) || die "$name: $!"; 
     8    if (!open(F, $name)) { 
     9        print STDERR "$name: $!\n"; 
     10        return undef; 
     11    } 
    912    while (<F>) { 
    1013        if (/ (\d+) bytes in (\S+) real seconds/) { 
     
    1922    } 
    2023    close F; 
     24    return 1; 
    2125} 
    2226 
     
    8185    local ($n); 
    8286 
     87    return unless &extract_ttcp($tx, *tx_rate, *tx_csw, *tx_cpu); 
     88    return unless &extract_ttcp($rx, *rx_rate, *rx_csw, *rx_cpu); 
     89 
    8390    print "---- ", 
    8491       $label_tx, " ", "-" x (15-length $label_tx), $gap, 
     
    8895      sprintf("%-8s %-7s CPU ", "*1000B/s", "ctx_sw"), "\n"; 
    8996 
    90     &extract_ttcp($tx, *tx_rate, *tx_csw, *tx_cpu); 
    91     &extract_ttcp($rx, *rx_rate, *rx_csw, *rx_cpu); 
    9297    $n = @tx_rate; 
    9398    for ($i = 0; $i != $n; $i++) { 
     
    96101          &ttcp_set(*rx_rate, *rx_csw, *rx_cpu, $i), "\n"; 
    97102    } 
    98     print "AVG: ", 
    99       &ttcp_format($tx_rate/$n, $tx_csw/$n, $tx_cpu/$n), $gap, 
    100       &ttcp_format($rx_rate/$n, $rx_csw/$n, $rx_cpu/$n), "\n"; 
    101     print "SDV: ", 
    102       &ttcp_format(&ttcp_std_dev(*tx_rate, $n), 
    103       &ttcp_std_dev(*tx_csw, $n), &ttcp_std_dev(*tx_cpu, $n)), $gap, 
    104       &ttcp_format(&ttcp_std_dev(*rx_rate, $n), 
    105       &ttcp_std_dev(*rx_csw, $n), &ttcp_std_dev(*rx_cpu, $n)), "\n"; 
     103    if ($n) { 
     104        print "AVG: ", 
     105          &ttcp_format($tx_rate/$n, $tx_csw/$n, $tx_cpu/$n), $gap, 
     106          &ttcp_format($rx_rate/$n, $rx_csw/$n, $rx_cpu/$n), "\n"; 
     107        print "SDV: ", 
     108          &ttcp_format(&ttcp_std_dev(*tx_rate, $n), 
     109          &ttcp_std_dev(*tx_csw, $n), &ttcp_std_dev(*tx_cpu, $n)), $gap, 
     110          &ttcp_format(&ttcp_std_dev(*rx_rate, $n), 
     111          &ttcp_std_dev(*rx_csw, $n), &ttcp_std_dev(*rx_cpu, $n)), "\n"; 
     112    } 
    106113    print "\n"; 
    107114} 
     
    113120    local (@time); 
    114121 
    115     open(F, $name) || die "$name: $!"; 
     122    if (!open(F, $name)) { 
     123        print STDERR "$name: $!\n"; 
     124        return (); 
     125    } 
    116126    while (<F>) { 
    117127        if (/ time=(\S+) ms/) { 
     
    131141 
    132142    @time = &extract_ping($name); 
     143    return unless @time; 
     144 
    133145    for (@time) { 
    134146        $min = $_ if $_ < $min || !defined $min; 
Note: See TracChangeset for help on using the changeset viewer.