如何在Spreadsheet :: ParseExcel :: Simple中添加一個字段分隔符

Question

以下代碼適用於我，但我無法弄清楚如何使用逗號（，）字符等字段分隔符分隔列。

請指教，謝謝。

#! /usr/bin/perl 

use strict; 
use warnings; 
use Spreadsheet::ParseExcel::Simple; 

my @data; 
my $xls = Spreadsheet::ParseExcel::Simple->read('mylargefile.xls'); 
foreach my $sheet ($xls->sheets) { 
    while ($sheet->has_data) { 
     @data = $sheet->next_row; 
     print "@data \n"; 
    } 
} 

Answer 1

由於@data是單元陣列，您可以使用內置的連接（）函數，就像這樣：

print join(',', @data); 

或與您選擇的分隔符替換逗號。