Re^2: SQL vs Perl table comparing

[roboticus]

Something like this should do:

use DBI;
use Spreadsheet::WriteExcel;
my $DB=DBI::connect( ... connection args for oracle DB ... );
my $ar = $DB->selectall_arrayref('select * from table');
my $XLWB = Spreadsheet::WriteExcel->new('table.xls');
my $XLWS = $XLWB->add_worksheet('table');
my $row = 0;
$XLWS->write_row($row,0,$_) for @$ar;

...roboticus

When your only tool is a hammer, all problems look like your thumb.

[runrig]

Spreadsheet::WriteExcel is superceeded by Excel::Writer::XLSX.

But I think the poster wants to avoid putting all the data in a spreadsheet where they currently run macros to compare data 8-) ... and wants you to write a generic table compare utility