Что это за числа слева от вывода od?

Вы можете получить позицию из Perl Text :: CSV_XS следующим образом:

perl -MText::CSV_XS -E 'open(my $fh, "<:encoding(utf8)", $ARGV[0]) or die "open: $!"; $csv = Text::CSV_XS->new({binary => 1, auto_diag => 9, diag_verbose => 1 } ); while (my $row = $csv->getline($fh)) { say tell $fh }' FILENAME.csv

Обратите внимание на FILENAME.csv в конце строки.

После успешного анализа каждой строки будет напечатано смещение байт .

Распаковка однострочного файла:

use Text::CSV_XS;
use feature 'say';
open(my $fh, '<:encoding(utf8)', $ARGV[0]) or die "open: $!";
$csv = 'Text::CSV_XS'->new({'binary' => 1, 'auto_diag' => 9, 'diag_verbose' => 1});
while (my $row = $csv->getline($fh)) {
    say tell $fh
}

Я отправил ему этот ошибочный CSS ( new.css ):

r1c1,"r1
c2",r1c3
r2c1,"r2c2,r2c3
r3c1,r3c2,r3c3

Вывод:

18
# CSV_XS ERROR: 2027 - EIQ - Quoted field not terminated @ rec 1 pos 15 field 2

(если перед поврежденной строкой было больше хороших строк, будет напечатано больше байтовых смещений. Используйте последнее.)

Итак, после байта 18 обнаружена ошибка. Достаточно легко получить номер строки из этого: head -c 18 new.csv | wc -l , где указано 2 (количество хороших строк). Таким образом, ошибка находится в строке 3 - и действительно, кавычка вокруг r2c2 не закрыта.