note
c-era
I don't think this is the best way to do it, but it sure was fun to write:
<code>
my $eval;
my %hash;
# Find all three letter occurences, and combine them into one eval statment.
while (<>){
$eval = '$hash ';
while (/(...)/g){
$eval .= "{'$1'}"
}
$eval .= "++;"
eval ($eval); # You should probably do some error checking at this point.
}
for (keys %hash){
hashValue ($hash{$_});
}
# You got to love recursive functions ;)
sub hashValue {
my $hash = @_[0];
if (defined %$hash){
for (keys %$hash){
hashValue ($$hash{$_});
}
} else {
print $hash; # Or do whatever you like with the value
}
}
</code>
35303
35303