2015-06-16 31 views
0

請幫助我僅使用Perl從HTML格式提取日期到XLSX格式。需要僅使用Perl從HTML格式文件提取XLSx日期

在HTML格式的日期與時間具有格式爲「2005-08-16 15:23:13.933」

我想提取它作爲2005-08-16。

這是我迄今

# General format date 

my $date_format = $workbook->add_format(); 
$date_format->set_align('left'); 
$date_format->set_num_format('mm/dd/yyyy'); 

if ($col_format) { 

    print "Col Type : $col_format\n"; 

    if ($col_format eq "date_format2") { 
     $date_format->set_num_format('mm/dd/yyyy'); 
    } 
    else { 
     $date_format->set_num_format('mm/dd/yyyy'); 
    } 
} 
+3

顯示一些工作。你有什麼嘗試? –

+0

#一般格式日期 my $ date_format = $ workbook-> add_format(); $ date_format-> set_align('left'); $ date_format-> set_num_format('mm/dd/yyyy'); if($ col_format)\t { \t print「Col類型:$ col_format \ n」; \t \t如果($ col_format當量 「date_format2」)\t { \t \t \t $ date_format-> set_num_format( '毫米/日/年'); \t \t \t \t \t \t \t \t \t \t \t \t \t \t \t \t \t \t \t}否則{ \t \t \t $ date_format-> set_num_format( '毫米/日/年'); \t \t \t \t \t \t} \t \t \t} – Punya

+0

請出示在問題的HTML和腳本。 –

回答

0

我已經給它轉換單元格的格式樣本代碼編寫。如果你分享HTML和你正在努力實現的代碼,會更好。

$worksheet = $workbook->add_worksheet(); 
$date_format = $workbook->add_format(); 
$date_format->set_num_format('mm/dd/yy'); 
$worksheet->write(0, 0, 36892.521, $date_format);