Array of arrays

Win has asked for the wisdom of the Perl Monks concerning the following question:

Good Monks. I have the following bit of code:


while (my @row = $sth_C->fetchrow_array) {

      print OUTPUT_FILE join("\t", @row);
      print OUTPUT_FILE "\n";
      
      undef @row;
}
[download]

Which I would like modified to check to see whether the array @row is within an array of arrays called @collection_of_rows. If it is I want it to exit the loop and if it isn't I want it to continue as before and add @row to the array of arrays.

Comment on Array of arrays Download Code

Replies are listed 'Best First'.
Re: Array of arrays by Roy Johnson (Monsignor) on Feb 21, 2006 at 17:50 UTC
So you just need a function to tell you whether two arrays are equal. Here ya go: `sub arrays_eq (\@\@) { my ($a1, $a2) = @_; # Same length? return 0 unless @$a1 == @$a2; # Same contents? for (0..$#$a1) { return 0 if $a1->[$_] ne $a2->[$_]; } return 1; }` [download] Caution: Contents may have been coded under pressure.	[reply] [d/l]
A reply falls below the community's threshold of quality. You may see it by logging in.
Re: Array of arrays by GrandFather (Saint) on Feb 21, 2006 at 17:47 UTC
An AoA is an array of scalars holding references to arrays. So assuming that you either have an AoA or a simple array, you can: `last if ref $array[0];` [download] DWIM is Perl's answer to Gödel	[reply] [d/l]
Re: Array of arrays by jdporter (Paladin) on Feb 21, 2006 at 18:41 UTC
Well that could be an expensive proposition. If you can live with the memory cost, something like the following will work. In this version, I'm presuming that the "collection of rows" starts out empty, and that you don't need it for anything other than to determine whether a row has been seen before or not. If that presumption is false, let me know and I can enhance it accordingly. `my %seen; my @row; while ( @row = $sth_C->fetchrow_array ) { my $krow = join "\0", @row; $seen{$krow}++ and next; # or did you mean last? print OUTPUT_FILE join( "\t", @row ), "\n"; undef @row; }` [download] We're building the house of the future together.	[reply] [d/l]
A reply falls below the community's threshold of quality. You may see it by logging in.


Perl-Sensitive Sunglasses
	PerlMonks