This doesn't really fix the full issue of counting HLS clients, but at least
it's a start.
chomp;
my ($ip, $fd, $mark, $stream, $connected_time, $bytes_sent, $loss_bytes, $loss_events) =
/^(\S+) (\d+) (\d+) (\S+) (\d+) (\d+) (\d+) (\d+)/ or die "Invalid stats format";
chomp;
my ($ip, $fd, $mark, $stream, $connected_time, $bytes_sent, $loss_bytes, $loss_events) =
/^(\S+) (\d+) (\d+) (\S+) (\d+) (\d+) (\d+) (\d+)/ or die "Invalid stats format";
+ $stream =~ s/\?frag=.*//;
++$streams{$stream};
++$total;
}
++$streams{$stream};
++$total;
}