129 |
foreach my $sql_file (@sql_files) { |
foreach my $sql_file (@sql_files) { |
130 |
|
|
131 |
my $sheet_name = $sql_file; |
my $sheet_name = $sql_file; |
132 |
$sheet_name =~ s/\d+_//; |
$sheet_name =~ s/\d+[_-]//; |
133 |
$sheet_name =~ s/_/ /g; |
$sheet_name =~ s/_/ /g; |
134 |
$sheet_name =~ s/\.sql//; |
$sheet_name =~ s/\.sql//; |
135 |
|
|
193 |
my $data = $row[$col]; |
my $data = $row[$col]; |
194 |
if ( $types[$col] =~ m/^date/i ) { |
if ( $types[$col] =~ m/^date/i ) { |
195 |
$data .= 'T' if $data =~ m/^\d\d\d\d-\d\d-\d\d$/; |
$data .= 'T' if $data =~ m/^\d\d\d\d-\d\d-\d\d$/; |
196 |
$data =~ s/^(\d\d\d\d-\d\d-\d\d)\s(\d\d:\S+)$/$1T$2/; |
$data =~ s/^(\d\d\d\d-\d\d-\d\d)\s(\d\d:\d\d:\d\d)$/$1T$2/; |
197 |
warn "## $data\n"; |
warn "## by type datetime $data\n"; |
198 |
$worksheet->write_date_time( $row, $col, $data, $date_format ); |
$worksheet->write_date_time( $row, $col, $data, $date_format ); |
199 |
|
} elsif ( $data =~ s/^(\d\d\d\d-\d\d-\d\d)[\sT](\d\d:\d\d:\d\d)$/$1T$2/ ) { |
200 |
|
warn "## heuristic date time: $1T$2\n"; |
201 |
|
$worksheet->write_date_time( $row, $col, "$1T$2", $date_format ); |
202 |
} else { |
} else { |
203 |
$worksheet->write($row, $col, _c( $data ) ); |
$worksheet->write($row, $col, _c( $data ) ); |
204 |
} |
} |