More CSV file format improvements

This commit is contained in:
Joni Räsänen 2021-11-22 12:41:04 +02:00
parent afa39aa91b
commit c581d41575
1 changed files with 30 additions and 30 deletions

View File

@ -246,18 +246,18 @@ sub parse_csv {
print $output_file "fps;" . join(";", @send_fps) . "\n";
print $output_file "datarate;" . join(";", @datarate) . "\n\n";
print $output_file "send usr;" . join(";", @send_usr) . "\n";
print $output_file "send sys;" . join(";", @send_sys) . "\n";
print $output_file "send cpu;" . join(";", @send_cpu/100) . "\n";
print $output_file "send total;" . join(";", @send_total) . "\n";
print $output_file "send user time;" . join(";", @send_usr) . "\n";
print $output_file "send system time;" . join(";", @send_sys) . "\n";
print $output_file "send elapsed time;" . join(";", @send_total) . "\n";
print $output_file "send CPU usage;" . join(";", @send_cpu/100) . "\n";
print $output_file "send goodput;" . join(";", @send_thread_goodput) . "\n";
print $output_file "total send goodput;" . join(";", @send_total_goodput) . "\n\n";
print $output_file "recv usr;" . join(";", @recv_usr) . "\n";
print $output_file "recv sys;" . join(";", @recv_sys) . "\n";
print $output_file "recv cpu;" . join(";", @recv_cpu/100) . "\n";
print $output_file "recv total;" . join(";", @recv_total) . "\n";
print $output_file "Frame loss;" . join(";", 1.0 - @recv_frame) . "\n";
print $output_file "recv user time;" . join(";", @recv_usr) . "\n";
print $output_file "recv system time;" . join(";", @recv_sys) . "\n";
print $output_file "recv elapsed time;" . join(";", @recv_total) . "\n";
print $output_file "recv CPU usage;" . join(";", @recv_cpu/100) . "\n";
print $output_file "Data loss;" . join(";", 1.0 - @recv_frame/100) . "\n";
print $output_file "bytes received;" . join(";", @recv_bytes) . "\n";
print $output_file "recv goodput;" . join(";", @recv_goodput) . "\n\n";
@ -286,18 +286,18 @@ sub parse_csv {
print $output_file "fps;" . join(";", @send_fps) . "\n";
print $output_file "datarate;" . join(";", @datarate) . "\n\n";
print $output_file "send usr;" . join(";", @send_usr) . "\n";
print $output_file "send sys;" . join(";", @send_sys) . "\n";
print $output_file "send cpu;" . join(";", @send_cpu/100) . "\n";
print $output_file "send total;" . join(";", @send_total) . "\n";
print $output_file "send user time;" . join(";", @send_usr) . "\n";
print $output_file "send system time;" . join(";", @send_sys) . "\n";
print $output_file "send elapsed time;" . join(";", @send_total) . "\n";
print $output_file "send CPU usage;" . join(";", @send_cpu/100) . "\n";
print $output_file "send goodput;" . join(";", @send_thread_goodput) . "\n";
print $output_file "send total goodput;" . join(";", @send_total_goodput) . "\n\n";
print $output_file "total send goodput;" . join(";", @send_total_goodput) . "\n\n";
print $output_file "recv usr;" . join(";", @recv_usr) . "\n";
print $output_file "recv sys;" . join(";", @recv_sys) . "\n";
print $output_file "recv cpu;" . join(";", @recv_cpu/100) . "\n";
print $output_file "recv total;" . join(";", @recv_total) . "\n";
print $output_file "frames received;". join(";", @recv_frame) . "\n";
print $output_file "recv user time;" . join(";", @recv_usr) . "\n";
print $output_file "recv system time;" . join(";", @recv_sys) . "\n";
print $output_file "recv elapsed time;" . join(";", @recv_total) . "\n";
print $output_file "recv CPU usage;" . join(";", @recv_cpu/100) . "\n";
print $output_file "Data loss;" . join(";", 1.0 - @recv_frame/100) . "\n";
print $output_file "bytes received;" . join(";", @recv_bytes) . "\n";
print $output_file "recv goodput;" . join(";", @recv_goodput) . "\n\n";