perl - 使用 Perl 打开在 Mac Excel 中创建的 CSV 文件

Question

我在使用下面的 Perl 代码时遇到了一些问题。我可以打开并读取手动创建的 CSV 文件，但如果我尝试打开任何另存为 CSV 文件的 Mac Excel 电子表格，下面的代码会将其全部读取为一行。

#!/usr/bin/perl

use strict;
use warnings;

open F, "file.csv";

foreach (<F>)
{
    ($first, $second, undef, undef) = split (',', $_);
}

print "$first : $second\n";

close(F);

Answer 1

始终使用专门的模块(例如 Text::CSV 或 Text::CSV_XS )来实现此目的，因为在很多情况下 split-ing 没有帮助(例如，当字段包含逗号，它不是字段分隔符，但在引号内)。