Fråga : Perl Using text:: CSV_XS/räkningen numrerar av hänvisar till

Läsning för förmiddag I som en CSV sparar med ett enormt belopp av kolonner. Tyvärr titelraden startar precis på fodrar 8, därför som jag använder getlinen befaller. Fodra en gång 8 har nett mig skulle något liknande för att räkna numrera av kolonner som spara innehåller. Det är exactely var I-förmiddagen stuck. > för

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:

" codeBody " " ># för class= " för new ({binär => 1, sep_char => ”; ”}); öppna min $fp, ”<”, $file eller matrisen ”$file: $! ”; #Counter mitt $lcnt = 0; #Goen ho varje fodrar min stunder ($row = $pos->getline ($fp)) { $lcnt++; Nr. fodra därefter, om inte titelraden fodrar om därefter ($lcnt < 8); Nr. handtagtitelrad om ($lcnt-== 8) { Nr. nu här jag skulle något liknande för att kontrollera, hur många hänvisar till $row har ($row-> [???]) } } $pos->eof eller $pos->error_diag; nära $fp eller matris ”$file: $! ”; " klar "

Svar : Perl Using text:: CSV_XS/räkningen numrerar av hänvisar till

Om inte du behöver de mer sistnämnda extra variabler, du behöver inte att skapa dem:
skriv ut scalaren (@$row), ”\ n”;

Om $size-variabeln är nödvändig mer sistnämnd, du kunde göra denna:
mitt $size = @$row;
tryck $size, ”\ n”;