characters-in-input.pl

#!/usr/bin/perl -w
my $h = {};

while(read DATA, $_, 1) {
    $h->{$_} = 0 unless $h->{$_};
    $h->{$_}++;
}

use Data::Dumper;
print Dumper($h);

__DATA__
Lorem ipsum dolor sit amet, consectetur adipiscing elit. Suspendisse scelerisque sed velit non auctor. Fusce commodo ac orci ut euismod. Cras non gravida tellus, sit amet tincidunt massa. Donec risus nisi, elementum eu mi ut, dapibus finibus arcu. Sed non convallis magna, euismod auctor velit. Cras a diam vel ligula luctus mattis. Praesent sit amet eros euismod, auctor mi sit amet, consequat tortor. Ut venenatis turpis in pretium mollis. Ut tortor lectus, posuere nec faucibus ut, mattis at tellus. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Aliquam diam ligula, molestie vel malesuada a, sollicitudin vel velit.

Etiam sagittis, eros ut blandit sagittis, lectus libero eleifend dui, non aliquet turpis ante sed arcu. Etiam nec dolor ante. Vestibulum ultrices ex erat, non sollicitudin ante posuere sed. Curabitur sed lacus eget felis pretium porta. Vivamus vel dictum massa, nec elementum odio. Integer tincidunt eros in leo volutpat, fermentum ullamcorper enim scelerisque. Sed tempor lorem turpis, eget euismod felis lobortis a. In hac habitasse platea dictumst. Duis euismod risus nec lorem dignissim, vel accumsan neque tempus. Suspendisse et pretium erat. Proin fermentum ipsum porttitor porttitor ultrices. Cras id enim sed felis rhoncus sagittis. Nam a mi in lectus mollis placerat eget sed erat.

Nulla a dapibus est. Cras eu metus fringilla, scelerisque ante quis, gravida justo. Phasellus vel porttitor purus. Aenean laoreet sagittis turpis, vitae posuere libero tempus id. In euismod mauris a cursus dapibus. In sodales convallis iaculis. Suspendisse potenti. Aenean rhoncus vitae nulla quis posuere.

Fusce pretium libero vel felis dapibus, id interdum leo interdum. Pellentesque id viverra augue. Morbi tincidunt luctus lacus in bibendum. Nunc ut ex nec elit ornare tempor. Praesent eget laoreet nibh. Orci varius natoque penatibus et magnis dis parturient montes, nascetur ridiculus mus. Nunc feugiat, elit vel viverra malesuada, tellus tortor lobortis purus, sed hendrerit metus tellus sed neque. Ut hendrerit dolor ut mattis luctus. Aliquam erat volutpat. Donec ac augue et ex porttitor luctus.

Interdum et malesuada fames ac ante ipsum primis in faucibus. Sed in purus mauris. Duis cursus dui quis luctus efficitur. Pellentesque eget purus imperdiet, sodales erat eget, dictum dui. Proin faucibus nibh ac eros porta sodales. Aliquam sed leo dui. Nullam sit amet mauris mattis nunc vestibulum posuere. Vivamus pretium lorem a tellus maximus, id condimentum odio venenatis. Pellentesque nibh leo, gravida varius gravida a, laoreet at quam. Lorem ipsum dolor sit amet, consectetur adipiscing elit. Praesent consectetur elementum auctor. Cras tempor elit vitae nisl rhoncus, in bibendum urna fringilla. Interdum et malesuada fames ac ante ipsum primis in faucibus.

output.txt

$VAR1 = {
          'h' => 11,
          'P' => 9,
          's' => 202,
          'm' => 109,
          'j' => 1,
          'v' => 33,
          't' => 205,
          'i' => 218,
          'b' => 28,
          'M' => 1,
          'F' => 2,
          'n' => 121,
          ' ' => 415,
          'C' => 6,
          'S' => 6,
          'L' => 3,
          'd' => 81,
          'I' => 6,
          'u' => 195,
          'l' => 128,
          'p' => 56,
          'e' => 266,
          'E' => 2,
          'q' => 18,
          'U' => 3,
          'c' => 82,
          'N' => 5,
          'V' => 3,
          ',' => 35,
          'a' => 167,
          'g' => 28,
          'D' => 4,
          'A' => 5,
          'O' => 1,
          'r' => 142,
          'o' => 113,
          'f' => 19,
          'x' => 4,
          '
' => 8,
          '.' => 56
        };