Errg... corian, you are amazing.. but I think I've screwed up you nice code in trying to put it in with the old. I get all sorts of errors, particularly one about a bad charactor, 0xff. Take a look: 
#!/usr/bin/perl -w
#use strict;

my $infile = $ARGV[0];
my $act = $ARGV[1];
my $included = "n";
my $lvar ="";
my %validchars;

if ($#ARGV < 1) {
  print "Usage: $0 <file> <chars>
  Where <chars> can be -a, -c, or -r:
       -a: show all charactors. (ie, spaces, etc.)
       -c: show only regular charactors, but keep case. (ie, x is diff
+erent than X.)
       -r: show only regular charactors, disregard case. (ie, t and T 
+are the same.)\n";
  exit;
}

if ( $act eq '-a' ) {
  %validchars = map { $_ => uc $_ } ( \x00 .. \xff );
} elsif ( $act eq '-c' ) {
  %validchars = map { $_ => $_ } ( 'A' .. 'Z', 'a'..'z' );
};

my $count = 0;

system("cls");   #win
system("clear"); #*nix

open INPUT, "<$infile" or die "Couldn't open '$infile' : $!";
my $input = do { local $/; <INPUT> };

my %histogram;

for my $char (split //, $input) {
  if (exists $validchars{$_}) {
    my $target = $validchars{$_};
    $count++;
    $histogram{$target}++};
};

print "Of $count charactors:\n\n";

for (sort keys %histogram) {
  if ($_ eq "\n") { print "'\\n' occurred $histogram{$_} times. (".(($
+histogram{$_}/$count)*100)."%)\n"}
  else { print "'$_'  occurred $histogram{$_} times. (".(($histogram{$
+_}/$count)*100)."%)\n" }
};

[download]
Thanks again guys (monks)! -Jack

In reply to Re: Switch statement? by crep
in thread Switch statement? by crep

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.