Re: autoscan -v produces gigabytes of output - take 2

[Akim Demaille]

> foreach my $word (sort keys %identifiers)
>   {
>     print "$word: @{$identifiers{$word}}\n";
>   }

Wow!  That's cute...


> In fact, there's enough duplication in those 6 loops that
> it's probably worthwhile to factor them.  How about this:
> 
> foreach my $class (qw (functions identifiers headers
>                        makevars libraries programs))
>   {
>     print "\n$class:\n";
>     my $h = eval "\\\%$class";
>     foreach my $word (sort keys %$h)
>       {
>       print "$word: @{$h->{$word}}\n";
>       }
>   }

So Perl _can_ be beautiful ;)