Вопрос : Perl, Using текст:: CSV_XS/номер отсчета справок

Я читаю архив CSV с огромным количеством колонок. Несчастливо коллектор как раз начинает на линии 8 поэтому, котор я использую командование getline. Как только линия 8 достигала я хотел был бы подсчитать число колонок, котор архив содержит. То exactely где я буду stuck. class= " ясное " >

> " codeSnippet " class=

class= " lineNumbers "

class=

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29:

class= номер счета " id= " codeSnippet747588 # открытый хранит мо $pos = текст:: CSV_XS->new ({бинарное => 1, sep_char => «; »}); раскройте мое $fp, «<», $file или умрите «$file: $! »; #Counter мо $lcnt = 0; ринв #Go каждая линия пока (мо $row = $pos->getline ($fp)) { $lcnt++; # затем линия если не линия коллектора затем если ($lcnt < 8); # коллектор ручки если (== $lcnt 8) { # теперь здесь я хотел был бы проверить сколько справки $row имеет ($row-> [???]) } } $pos->eof или $pos->error_diag; близкие $fp или умирают «$file: $! »;

class=

Ответ : Perl, Using текст:: CSV_XS/номер отсчета справок

Если вам не нужны те экстренные перемеююые более поздно, вам не нужно создать их:
напечатайте скаляр (@$row), «\ n»;

Если перемеююый $size необходима более поздно, то вы smogли сделать это:
мо $size = @$row;
печать $size, «\ n»;