I took your list as input and changed it to:
# perl -aF -ne'@f=@F;$f{$f[0]}++;$f[2]=~/a$/ and$e{$f[0]}++;END{for(sort keys%f){printf"%-10s%9d%6d %6.2f\n",$_,$f{$_},($e{$_}||0),100*(($f{$_}-($e{$_}||0))/$f{$_})}}' < xx.uit
clien01 575 1 99.83
returning that to your call should make:
# mminfo -avont -c client01 -q "pool=Unix Normaal" -q "savetime>=08/01/04 00:00:01,savetime<=08/31/04 23:59:59" | perl -aF -ne'@f=@F[0,2,7];$f{$f[0]}++;$f[2]=~/a$/ and$e{$f[0]}++;END{for(sort keys%f){printf"%-10s%9d%6d %6.2f\n",$_,$f{$_},($e{$_}||0),100*(($f{$_}-($e{$_}||0))/$f{$_})}}'
produce similar output
For now I have ignored the character before the a (or whatever it is)
Enjoy, Have FUN! H.Merijn
Enjoy, Have FUN! H.Merijn