Help for this page
$ perl -wE'say 5.5*1024 / length("Nov 17 11:09:25 proxy02 kernel: OUTP +UT LOGIN= OUT=eth0 SRC=11.11.11.0 DST=192.168.3.1 LEN=1420 TOS=0x00 P +REC=0x00 TTL=64 ID=10523 DF PROTO=TCP SPT=3128 DPT=1921 WINDOW=16659 +RES=0x00 ACK URGP=0\n")' 29.0309278350515
$ perl -MDevel::Size=total_size -wE'my %h; for (1..100) { ++$h{ pack " +C4", 1,2,3,$_ } } say total_size(\%h)/100' 47.56
use strict; use warnings; ... main();