my @table1 = GetNames( 'Table1'); my @table2 = GetNames( 'Table2'); my %names = (); map {$names{$_}++} (@table1, @table2); while (my ($name, $weight) = each %names) { if ( $weight > 1 ) { PrintBoldly($name); } else { PrintNormally($name); } }
"One is enough. If you are acquainted with the principle, what do you care for the myriad instances and applications?"
- Henry David Thoreau, Walden
In reply to Re: Combining two fetches with DBI and MySQL
by blogical
in thread Combining two fetches with DBI and MySQL
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |