Anonymous
public text v1 · immutable#!/usr/bin/env perl
while (<>) {
foreach $l (/([a-zA-Z])/g) {
++$c{$l};
}
}
foreach $l (sort keys %c) {
print "$l $c{$l}\n"
}
#!/usr/bin/env perl
while (<>) {
foreach $l (/([a-zA-Z])/g) {
++$c{$l};
}
}
foreach $l (sort keys %c) {
print "$l $c{$l}\n"
}