Unnamed
public text v1 · immutable#!/usr/bin/env perl
while ($l = getc)
if ($l =~ /[a-zA-Z]/)
++$c{$l};
foreach $l in sort keys %c
print $l, $c{$l}, "\n"
#!/usr/bin/env perl
while ($l = getc)
if ($l =~ /[a-zA-Z]/)
++$c{$l};
foreach $l in sort keys %c
print $l, $c{$l}, "\n"