Sign in or Join FriendFeed
FriendFeed is the easiest way to share online. Learn more »
Detlev Lengsfeld
my %items; # class -> { number, age, chunk_size, chunks_per_page, # total_pages, total_chunks, used_chunks, # free_chunks, free_chunks_end } print $sock "stats items\r\n"; while (<$sock>) { last if /^END/; if (/^STAT items:(\d+):(\w+) (\d+)/) { $items{$1}{$2} = $3; } } - Detlev Lengsfeld