如何在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);

或者用您选择的分隔符替换逗号。