我将回答更广泛的问题,“如何在 Perl 中处理 CSV 文件” - 有很多答案,但更常见的方法之一是“使用 Text::CSV 模块”
https://metacpan.org/module/Text::CSV#SYNOPSIS上的大量示例代码,但对于更简短的示例,这是我今天下午在工作中所做的:
# now we expect a CSV file on STDIN
while (<>) {
$csv->parse($_);
# grab the field values
my ( $agreement, $debt_id, $client_id, $campaign_id ) = $csv->fields();
# less interesting code goes here
}
很多人已经解决了您的具体问题,但如果您的问题是“我如何处理这个 CSV”,那么无论字段内的换行符/逗号等如何,这应该可以正常工作。
至于文件中缺少换行符 - 正如其他人所说,这可能只是 Windows/Unix 行尾问题。只要它们是一致的(看起来它们是一致的——它们都不能在 Windows 上工作!)你没问题。