my $sql = "";
while(<SQL>) {
chomp;
- if (/^--(.+)/) {
+ if (/^\\c\s+(\S+)/) {
+ warn "## connect to $1\n" if $debug;
+ $dbh = DBI->connect('DBI:Pg:dbname=' . $1,$user,$passwd) || die $DBI::errstr;
+ } elsif (/^--(.+)/) {
$comment.=$1;
} else {
- $sql.=$_;
+ $sql.= ' ' . $_;
}
}
close(SQL);
+ $sql =~ s/\s\s+/ /gs;
+
print STDERR "sql: $sql\ncomment: $comment\n" if ($debug);
my $row = 0;
my $data = $row[$col];
if ( $types[$col] =~ m/^date/i ) {
$data .= 'T' if $data =~ m/^\d\d\d\d-\d\d-\d\d$/;
+ $data =~ s/^(\d\d\d\d-\d\d-\d\d)\s(\d\d:\S+)$/$1T$2/;
+ warn "## $data\n";
$worksheet->write_date_time( $row, $col, $data, $date_format );
} else {
$worksheet->write($row, $col, _c( $data ) );