小编Hes*_*sei的帖子

使用 Text::CSV 在 Perl 中跳过错误的 CSV 行

我有一个基本上仍在测试中的脚本。我想使用 Text CSV 来分解每小时转储的大量 CSV 文件。

这些文件可能非常大并且质量不稳定。有时我会得到奇怪的字符或数据,但通常的问题是行停止。

"Something", "3", "hello wor
Run Code Online (Sandbox Code Playgroud)

封闭报价是我最大的障碍。剧本就这样被打破了。错误转到 stderr 并且我的 while 循环被破坏。

While (my $row = $csv->getline($data))
Run Code Online (Sandbox Code Playgroud)

我得到的错误是...

# CSV_PP ERROR: 2025 - EIQ - Loose unescaped escape
Run Code Online (Sandbox Code Playgroud)

我似乎无法为此进行任何类型的错误处理。如果我启用allow_loose_escapes,我得到的只是很多错误,因为它将后续的新行视为同一行的一部分。

csv perl

3
推荐指数
1
解决办法
1406
查看次数

标签 统计

csv ×1

perl ×1