Re: Hash to count characters

Your first attempt is correct but you need to change the @line_char to @line_words because you split the line and store all the characters into @line_words array only @line_char.One more suggestion whenever you do program, use the following in your code.

use strict;
use warnings;
[download]

Both the modules help you to correct the problems in your program.If you use any scalar, array or hash without declaration,it will warn you.

Comment on Re: Hash to count characters Download Code

Replies are listed 'Best First'.
Re^2: Hash to count characters by amittleider (Initiate) on Aug 12, 2010 at 05:46 UTC
Thanks a lot for your responses! nvivek's post worked, however, there is just one slight bug. This will produce an output that includes spaces and newline characters, which are unwanted. I tried to change the regex to /\w+/, because this says that there will be only alphanumeric strings plus underscores, but this produces an empty output. I just don't understand why it would produce characters with a // regex, but nothing with /\w+/	[reply]
Re^3: Hash to count characters by roboticus (Chancellor) on Aug 12, 2010 at 11:54 UTC
amittleider: Regarding the unwanted items in your report: There are three general ways to approach it: Remove unwanted characters before counting, Delete them after counting but before reporting, or 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 }` [download] ...roboticus	[reply] [d/l]


"be consistent"
	PerlMonks