tor_multipath_voip/scripts/generate_csv
2019-04-17 10:10:19 +02:00

65 lines
3.1 KiB
Bash
Executable file

#!/bin/bash
echo "orig latencies global"
{ echo "delta" ; ls|grep '^orig-'|while read -r line; do cat $line/res/orig.csv|grep -Po "\d*µs"|grep -Po "\d*"; done } > orig_latencies_global.csv
echo "orig latencies distri"
{ echo "hs,type,delta";ls|grep '^orig-'|while read -r line; do cat $line/res/orig.csv|grep -Po "\d*µs"|grep -Po "\d*"|python3 ./format-data.py $line; done } > orig_latencies_distri.csv
echo "naive latencies global"
{ echo "delta" ; ls|grep '^naive-'|while read -r line; do cat $line/res/naive.csv|grep -Po "\d*µs"|grep -Po "\d*"; done } > naive_latencies_global.csv
echo "naive latencies distri"
{ echo "hs,type,delta";ls|grep '^naive-'|while read -r line; do cat $line/res/naive.csv|grep -Po "\d*µs"|grep -Po "\d*"|python3 ./format-data.py $line; done } > naive_latencies_distri.csv
echo "rr latencies global"
{ echo "delta" ; ls|grep '^rr-'|while read -r line; do cat $line/res/rr.csv|grep -Po "\d*µs"|grep -Po "\d*"; done } > rr_latencies_global.csv
echo "rr latencies distri"
{ echo "hs,type,delta";ls|grep '^rr-'|while read -r line; do cat $line/res/rr.csv|grep -Po "\d*µs"|grep -Po "\d*"|python3 ./format-data.py $line; done } > rr_latencies_distri.csv
{ echo 'run,rcv' ; ls|grep '^rr-'|while read -r line; do echo -n "$line,"; cat $line/res/rr.csv|grep -Po "\d*µs"|grep -Po "\d*"|wc -l; done } > rr_lost.csv
{ echo "run,pkt_id"; ls|grep '^rr-'|while read line; do comm -23 <(seq 1 6000|sort) <(grep -Po 'Packet \d*' $line/res/rr.csv | grep -Po '\d*'|sort) | sort -n | while read e; do echo "$line,$e"; done; done } > rr_missed.csv
echo "rrh latencies global"
{ echo "delta" ; ls|grep '^rrh-'|while read -r line; do cat $line/res/rrh.csv|grep -Po "\d*µs"|grep -Po "\d*"; done } > rrh_latencies_global.csv
echo "rrh latencies distri"
{ echo "hs,type,delta";ls|grep '^rrh-'|while read -r line; do cat $line/res/rrh.csv|grep -Po "\d*µs"|grep -Po "\d*"|python3 ./format-data.py $line; done } > rrh_latencies_distri.csv
{ echo 'run,rcv' ; ls|grep '^rrh-'|while read -r line; do echo -n "$line,"; cat $line/res/rrh.csv|grep -Po "\d*µs"|grep -Po "\d*"|wc -l; done } > rrh_lost.csv
{ echo "run,dead_links"; ls|grep '^rrh-'|while read line; do echo -n "$line,"; grep -Po 'Blacklist link=\d' $line/log/server-donar-stdout.log | sort | uniq -c | wc -l; done } > rrh_blacklisted.csv
{
echo "run,pkt_id";
ls \
| grep '^rrh-' \
| while read line; do
comm -23 \
<(seq 1 6000 \
| sort) \
<(grep -Po 'Packet \d*' $line/res/rrh.csv \
| grep -Po '\d*' \
| sort) \
| sort -n \
| while read e; do
echo "$line,$e";
done
done
} > rrh_missed.csv
{
echo 'run,role,pos,count' ;
ls \
| grep '^rrh-' \
| for ct in {client,server}; do
while read -r line; do
grep -Po 'Blacklist link=\d' $line/log/$ct-donar-stdout.log \
| grep -Po "\d" \
| sort \
| uniq -c \
| grep -Po '^\s*\d*' \
| grep -Po '\d*' \
| sort -n -r \
| { c=0;
while read a; do
echo "$line,$ct,$c,$a";
((c++));
done }
done
done
} > rrh_flip_blacklist.csv