> > I think I better see the context at this point. > note, as I presume you did
The issue is resolved, but for the die hards here goes... I'm wanted to figure out my method of attack before I did the whole thing but here is an example that will illustrate the basic idea hopefully: #!/usr/bin/perl -w use strict; use DBI; my $dbh->connect(...) or die ....; my ($def_foo,$def_bar,$def_joe,$def_mama) = $dbh->selectrow_array("SELECT Foo,Bar,Joe,Mama FROM Default_Settings"); for(@{$dbh->selectall_arrayref("SELECT Foo,Bar,Joe,Mama,Use_Def FROM Whatsits WHERE Blah=1234")}) { my ($foo,$bar,$joe,$mama,$use_def) = @{$_}; my $foo_use = $foo || ($use_def && $def_foo) || ''; my $bar_use = $bar || ($use_def && $def_bar) || ''; my $joe_use = $joe || ($use_def && $def_joe) || ''; my $mama_use = $mama || ($use_def && $def_mama) || ''; print "$foo_use - $bar_use $joe_use $mam_use\n"; # or do whatever with it } $dbh->disconnect(); > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>