SENARIO:
I have downloaded a CSV file for the past 8 months with about 50k lines of data. The data does change a little each day, just some fields. I have uploaded all the files to a MySQL database. I have been able to compare one row of data at a time. Easy!. But I want to compare a whole bunch like 1k lines. When I use fetchall_arrayref I cannot get the name of the field that contains the data. The DBI gives me the error message that it is used for the subject of this email. Any suggestions I will enclosed of the code that I use and my system software and libraries.
Thanks
-Max
CODE:
$q2 = $dbh->prepare("SELECT * FROM $table WHERE LicNumber BETWEEN \"$gL1\" AND \"$gL2\"");
$q2->execute or die "ERROR: $q2->errstr \n";
$rowRef2 = $q2->fetchall_arrayref;
# print "ROW2: $rowRef2->[0]->[0]\n";
$q3 = $dbh->prepare("SELECT @columns from $table2 WHERE LicNumber BETWEEN \"$gL1\" AND \"$gL2\"");
$q3->execute or die "ERROR: $q3->errstr \n";
$rowRef3 = $q3->fetchall_arrayref;
########## some more looping ############
for ($i = 1; $i <= $q2->{NUM_OF_FIELDS}; $i++) {
if ($rowRef2->[$j]->[$i-1] ne $rowRef3->[$j]->[$i-1]) {
print "$rowRef2->[$j]->[$i-1] \t <-> $rowRef3->[$j]->[$i-1]\n";
push(@fields,"$q3->{NAME}->[$i-1],");
push(@records,"\"$rowRef2->[$j]->[$i-1]\",");
push(@NewRecords,"$q3->{NAME}->[$i-1]=\"$rowRef2->[$j]->[$i-1]\",");
}
}
}
SYSTEM:
SDL_perl-1.20.0-350
apache2-mod_perl-1.99_12_20040302-33
perl-5.8.3-32
perl-Archive-Zip-1.09-27
perl-Compress-Zlib-1.33-30
perl-Config-Crontab-1.03-46
perl-DBD-mysql-2.9003-22
perl-DBI-1.41-28
perl-Data-ShowTable-3.3-569
perl-Digest-SHA1-2.07-30
perl-HTML-Mason-1.05-251
perl-HTML-Parser-3.35-31
perl-HTML-Tagset-3.03-550
perl-HTML-Template-2.6-135
perl-MLDBM-2.01-236
perl-PDA-Pilot-0.11.8-120
perl-Params-Validate-0.14-276
perl-Template-Toolkit-2.13-25
perl-TermReadKey-2.21-292
perl-Tie-IxHash-1.21-584
perl-URI-1.30-29
perl-XML-Parser-2.34-28
perl-gettext-1.01-576
perl-libwww-perl-5.76-30
yast2-perl-bindings-2.9.25-8
thinkpad:/mnt/net1/data/RE/individuals # rpm -qa | sort | grep mysql
apache2-mod_auth_mysql-20030510-204
mysql-shared-4.0.18-32
perl-DBD-mysql-2.9003-22
