From a8fa71f3c044c6d91f7e93c0c797effd51660e95 Mon Sep 17 00:00:00 2001
From: "Jonathan \"Duke\" Leto" <jonathan@leto.net>
Date: Sat, 22 Dec 2018 06:02:29 -0800
Subject: [PATCH] Print data for all keys, with data lengths

---
 wack.pl | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/wack.pl b/wack.pl
index 8905778..26fe20c 100644
--- a/wack.pl
+++ b/wack.pl
@@ -30,15 +30,20 @@ while (my ($k,$v) = each %wallet) {
     } elsif ($type eq 'name') {
         print "name: $key, $v\n";
     } elsif ($type eq 'bestblock') {
-        print "bestblock:\nbestblock: $key, $v\n";
+        my $len = length $v;
+        print "bestblock ($len bytes):\nbestblock: $key, $v\n";
     } elsif ($type eq 'version') {
         my $version = unpack("I", $v);
         print "version: $version\n";
+    } else {
+        my $len = length $v;
+        print "$type ($len bytes): $key, $v\n";
     }
     $counts->{$type}++;
-    #printf "$len $type %s:\n", $key;
+    printf "$len $type %s:\n", $key;
 }
 
+printf "Stats\n";
 while (my ($k,$v) = each %$counts) {
     print "$k => $v\n";
 }