Vraag : Perl, Gebruikend Tekst:: CSV_XS/het aantal van de Telling verwijzingen

Ik lees een Csv- Dossier met een reusachtige hoeveelheid kolommen. Jammer genoeg begint de Kopbal bij Lijn 8 daarom enkel het gebruik van I het getlineBevel. Zodra Lijn 8 heeft bereikt zou ik het aantal kolommen willen tellen het dossier bevat. Dat is exactely waar ik stuck. ben

" codeBody "

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:

dossiers van het Aantal van de # mijn $pos = Tekst:: CSV_XS->new ({binaire => 1, sep_char => „; “}); open mijn $fp, „<“, $file of matrijs „$file: $! “; #Counter mijn $lcnt = 0; #Go trog elke lijn terwijl (mijn $row = $pos->getline ($fp)) { $lcnt++; # Daarna lijn als niet de lijn van de Kopbal als daarna ($lcnt < 8); # De Kopbal van het handvat als ($lcnt == 8) { # Nu hier zou ik willen controleren hoeveel verwijzingen $row heeft ($row-> [???]) } } $pos->eof of $pos->error_diag; dichte $fp of matrijs „$file: $! “;

Antwoord : Perl, Gebruikend Tekst:: CSV_XS/het aantal van de Telling verwijzingen

Tenzij u die extra variabelen later nodig hebt, te hoeven u niet om hen te creëren:
scalaire druk (@$row), „\ n“;

Als de variabele $size later nodig is, kon u dit doen:
mijn $size = @$row;
druk $size, „\ n“;