| 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 |
} |
} |
Parent Directory
| 
Revision Log
| 
Patch