如何处理带有 CRLF、NEL 行终止符的行？

Question

我需要使用 shift_jis 编码处理文件。然而，行终止符的格式我不熟悉。

> file record.CSV 
record.CSV: Non-ISO extended-ASCII text, with CRLF, NEL line terminators

我使用一般：

open my $CSV_FILE, "<:encoding(shift_jis)", $filename or die "Could not open: $CSV_FILE : $!";
while (<$CSV_FILE>) {
    chomp;
    # do stuff
}

但是它仍然在每条记录的末尾留下一个 CR。

终止这些类型的文件的正确方法是什么？

Answer 1

为什么不手动执行 $_ =~ s/\r// ？

编辑：显然，您还可以

require Encode;
use Unicode::Normalize;

s/\x{0085}//g;

删除 NEL: Next Line, U+0085 字符。

Answer 2

您需要考虑谁在使用数据并了解有关生成这些文件的环境的更多信息。如果您最终想要的是一个普通的 CSV 输出文件，请使用您喜欢的任何旧字符串操作来删除它们（并生成 CRLF 终止符来代替它们），然后就可以了。