Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery

Re^2: Dirtiest Data

by xdg (Monsignor)
on Jun 23, 2006 at 16:32 UTC ( #557249=note: print w/replies, xml ) Need Help??

in reply to Re: Dirtiest Data
in thread Dirtiest Data

The one tool I tend to use most often, as a first resort in the widest range of tasks, simply prints out a byte-value histogram, either as a 256-line list or as a nice 8-column x 32-row table, with an optional summary that counts up character categories like "printable ascii", "non-printable ascii", "8-bit", "iso-printable 8-bit", "digits", "whitespace", etc.

Wow. Too bad I can only ++ once.

Any chance there's a CPAN module to do that? If not, you should definitely write it! Moreover, this sounds like a great talk to give at seminar or conference. Or a great article for or The Perl Review.


Code written by xdg and posted on PerlMonks is public domain. It is provided as is with no warranties, express or implied, of any kind. Posted code may not have been tested. Use of posted code is at your own risk.

Replies are listed 'Best First'.
Re^3: Dirtiest Data
by graff (Chancellor) on Jun 23, 2006 at 20:51 UTC
    Any chance there's a CPAN module to do that? If not, you should definitely write it!

    um... well, <confession> the tool I referred to there is one that I actually wrote in C (so long ago, it was before I learned Perl) </confession>. "It ain't broke", so I've had no need to rewrite it. I sincerely apologize if it was inappropriate to discuss it here.

    Obviously a good Perl version to do the same thing would be a lot fewer lines of code than my C version, and most likely would not be significantly slower. But for the time being, I'm sorry that I must "leave it as an exercise for the reader..."

    (Update: I'm happy to share the C code with anyone who might want to try it out -- you can download it here: -- again, please forgive me for straying off-topic to non-Perl tools, and accept it in the spirit of PerlMonks, as an opportunity to adapt and enhance it in Perl.)

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://557249]
[Lotus1]: I was just pleasantly surprised to find I have shasum on my Windows machine. It was included in Strawberry Perl

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (6)
As of 2018-03-18 00:13 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (228 votes). Check out past polls.