Re^2: how to speed up dupe checking of arrays

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);
[download]

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

Comment on Re^2: how to speed up dupe checking of arrays Download Code

Replies are listed 'Best First'.
Re^3: how to speed up dupe checking of arrays by oha (Friar) on Jul 31, 2007 at 10:46 UTC
you already have them in array. `$seen{"$ele0;$ele1;$file_data"}++;` [download] then if you need the data you can, for example: `foreach (keys %seen) { .... }` [download] and the value of the hash is the number of times the string is repeated Oha	[reply] [d/l] [select]

In Section Seekers of Perl Wisdom