sub dump_table {
my $table = shift;
+ my @cols = @_;
+ @cols = ( '*' ) unless @cols;
-my $sql = qq|
- select *
- from $table
-|;
+my $sql = 'select ' . join(',', @cols) . ' from ' . $table;
+warn "# sql $sql\n";
my $sth = $dbh->prepare( $sql );
$sth->execute();
warn "columns ", dump @columns;
print $load qq|<table-def name="$table" schema="$schema">\n|;
-print $load qq| <column-def name="$_" tyle="string" tokenizing=" "
+print $load qq| <column-def name="$_" type="string" tokenizing=" "
searchable="yes" compress="no" wildcards="yes" />
| foreach @columns;
-print $load qq|</table-def>|;
+print $load qq|</table-def>\n|;
my $file = "$table.csv";
-print $load qq|<load-data table="$table" schema="$schema" file="$file">|;
+print $load qq|<load-data table="$table" schema="$schema" file="$file">\n|;
foreach my $i ( 0 .. $#columns ) {
print $load qq|
<column name="$columns[$i]" csv-column="$i">
</column>
|;
}
-print $load qq|</load-data>|;
+print $load qq|</load-data>\n|;
open(my $fh, '>', $file) || die "$file: $!";
}
print $load qq|<load-script>\n|;
-dump_table 'borrowers';
-dump_table 'borrower_attributes';
+dump_table 'borrowers' => qw(
+ borrowernumber
+ cardnumber
+ surname
+ firstname
+ email
+);
+dump_table 'borrower_attributes' => qw(
+ borrowernumber
+ code
+ attribute
+);
+
print $load qq|</load-script>\n|;
#$dbh->commit;