Re: Unique array w/o repeated elements and still keep the original order!

you don't say if the repeated lines will be in succession(one right after the other) or if they can be spread out through the file. If it's random...then this is what i'd use....

my @lines=();
open (FILE,"$tempfile5") || die "Cannot read from $tempfile5\n";
my $found = 0;
while(<FILE>){
    my $line_holder = $_; #DOH, should have had this here
    foreach my $val(@lines){
       if($val eq $line_holder){$found = 1;}
    }
    if($found){
      $found = 0; 
      next;
    }else{
       push @lines, $line_holder;
    }
}
[download]

TexasTess
"Great Spirits Often Encounter Violent Opposition From Mediocre Minds" --Albert Einstein

Comment on Re: Unique array w/o repeated elements and still keep the original order! Download Code

Replies are listed 'Best First'.
Re: Re: Unique array w/o repeated elements and still keep the original order! by jynx (Priest) on Aug 09, 2002 at 20:17 UTC
That won't work how you expect it to... Particularly, what's happening to `$_`? It's getting set by the while loop and then forgotten about, which is to say that you'll not process all of the lines. Oops. How about this: `while (my $line_holder = <FILE>) { foreach etc...` [download] Or alternately you could check for file EOF in the while condition like so: `while (! eof(FILE)) { my $line_holder = <FILE>; foreach etc...` [download] Either way should fix the problem... jynx	[reply] [d/l] [select]
Re: Re: Re: Unique array w/o repeated elements and still keep the original order! by TexasTess (Beadle) on Aug 09, 2002 at 20:34 UTC
I'm not sure what you mean by `while (my $line_holder = <FILE>) { foreach etc...` [download] That is certainly != to what I wrote.... `while(<FILE>){ my $line_holder = $_; #GOTCHA foreach my $val(@lines){` [download] Which is something I do in tons of code I have written at work and it works fine?? Perhaps I am missing something? TexasTess "Great Spirits Often Encounter Violent Opposition From Mediocre Minds" --Albert Einstein Waiting to see just how fast this makes it to an all time negative record...and wondering if any of the downvoters think I care :-)	[reply] [d/l] [select]
Re: Re: Re: Re: Unique array w/o repeated elements and still keep the original order! by DamnDirtyApe (Curate) on Aug 09, 2002 at 20:46 UTC
That is certainly != to what I wrote.... Exactly the point. In your code, each iteration of the loop assigns the next row to `$_` (your `while` statement), then assigns the following line to `$line_holder`. The line assigned to `$_` is never handled, so it just get's "skipped." In any case, couldn't the whole process be reduced to `my %seen = () ; my @uniq_rows = grep { !$seen{$_}++ } <FILE> ;` [download] ? _______________ DamnDirtyApe Those who know that they are profound strive for clarity. Those who would like to seem profound to the crowd strive for obscurity. --Friedrich Nietzsche	[reply] [d/l] [select]
Re: Re: Re: Re: Re: Unique array w/o repeated elements and still keep the original order! by demerphq (Chancellor) on Aug 09, 2002 at 21:05 UTC
Re^6: Unique array w/o repeated elements and still keep the original order! by jynx (Priest) on Aug 09, 2002 at 21:17 UTC
Some notes below your chosen depth have not been shown here


Clear questions and runnable code get the best and fastest answer
	PerlMonks