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

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