Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re^3: Hash to count characters

by roboticus (Chancellor)
on Aug 12, 2010 at 11:54 UTC ( [id://854651]=note: print w/replies, xml ) Need Help??


in reply to Re^2: Hash to count characters
in thread Hash to count characters

amittleider:

Regarding the unwanted items in your report: There are three general ways to approach it:

  1. Remove unwanted characters before counting,
  2. Delete them after counting but before reporting, or
  3. Delete or ignore them during the report.

Each method has situations where it is better than the others, but frequently any of them are good enough. Examples:

# Case 1: don't count unwanted characters for my $char(@letters) { ++$charCount{$char} if $char !~ /[a-zA-Z]/; } # Case 2: delete unwanted characters my %t = %charCount; $t{$_}=$charCount{$_} for grep {/[a-zA-Z]/} keys %charCount; %charCount=%t; # Case 3: ignore unwanted items during report for my $char (sort keys %charCount) { next unless $char =~ /[a-zA-Z]/; # print report entry }

...roboticus

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://854651]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others meditating upon the Monastery: (4)
As of 2024-03-28 22:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found