hjp
/
simple
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Separate all fields with tabs

This commit is contained in:
Peter J. Holzer 2017-02-17 13:20:05 +01:00
parent 51abe1d11a
commit fdd9010646
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
charhist/charhist.pl
View File

@ -21,7 +21,7 @@ if (@ARGV) {
binmode STDOUT, ":encoding(UTF-8)"; binmode STDOUT, ":encoding(UTF-8)";
for (sort keys %hist) { for (sort keys %hist) {
my $cp = ord; 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 { sub readfile {