如何在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是一個單元格數組，因此您可以使用內置的join（）函數，如下所示：

print join(',', @data);

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