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 |
} |
} |