Re: grep too slow

[Brian Duggan]

On Sunday, February 23 at 11:48 AM, A. Pagaltzis wrote:
> Try this. Untested.
>
> $t->start('transforming2');
> my $i;
> for(@list) {
>       $i = $_->{'info'};
>       push @info, $i;
>       push @{$hash{$i}}, $_;
> }
> @found3 = map pop @{$hash{$_}}, amatch('3456', @info);
> $t->stop;

Neat.  It performs better when the values (in @info)
are distinct, but performs worse when there are a lot of
values that are the same.

Thanks,
Brian