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“;
Andere oplossingen  
 
programming4us programming4us