From fdd9010646e0ed803f64cf5a7721b63b950c0264 Mon Sep 17 00:00:00 2001
From: "Peter J. Holzer" <hjp@wsr.ac.at>
Date: Fri, 17 Feb 2017 13:20:05 +0100
Subject: [PATCH] Separate all fields with tabs

---
 charhist/charhist.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/charhist/charhist.pl b/charhist/charhist.pl
index 0cdcf58..a9748d3 100644
--- a/charhist/charhist.pl
+++ b/charhist/charhist.pl
@@ -21,7 +21,7 @@ if (@ARGV) {
 binmode STDOUT, ":encoding(UTF-8)";
 for (sort keys %hist) {
     my $cp = ord;
-    printf("%x %d %o %s\t%d\n", $cp, $cp, $cp, /\p{Graph}/ ? $_ : ".", $hist{$_});
+    printf("%x\t%d\t%o\t%s\t%d\n", $cp, $cp, $cp, /\p{Graph}/ ? $_ : ".", $hist{$_});
 }
 
 sub readfile {