in reply to Re: how to speed up dupe checking of arrays
in thread how to speed up dupe checking of arrays
i need them in an array so i adjusted ur code like this
my @rows; my %seen; while (<IN>) { chomp; my ($ele0, $ele1, undef) = split ';', $_, 3; push @rows,"$ele0;$ele1;$file_date" if !$seen{"$ele0;$ele1 +;$file_date"}++; } close(IN);
and waht shoud i say AWSOME, from 203 seconds down do around 11 seconds,great so no over hours in office needed ;)
thx alot.
kd ultibuzz
In Section
Seekers of Perl Wisdom