in reply to 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.

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]

      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
}

      [download]

      ...roboticus

[reply]
[d/l]

In Section Seekers of Perl Wisdom