Questione : Perl, Using testo:: CSV_XS/numero di conteggio dei riferimenti

Sto leggendo una lima di CSV con un gran quantità delle colonne. Purtroppo l'intestazione comincia appena alla linea 8 quindi che uso l'ordine di getline. Una volta che la linea 8 ha raggiunto vorrei contare il numero delle colonne che la lima contiene. Quello è exactely dove sono stuck. class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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:
il numero di cliente aperto notpretty del ># " del class= " " di codeSnippet747588 del id= del 
new ({=> binario 1,
                                    => sep_char “; „});

    aprire il mio $fp, “<„, $file o morire “$file: $! „;
    
    #Counter
    mio $lcnt = 0;
    
    depressione di #Go ogni linea
    mentre (mio $row = $pos->getline ($fp))
    {
    
        $lcnt++;
        # dopo linea se non linea dell'intestazione
        dopo se ($lcnt < 8);
    
        # intestazione della maniglia
        se (== di $lcnt 8)
        {
            
            # ora qui vorrei controllare quanti riferimenti $row ha ($row-> [???])
            
        }
        
    }

    $pos->eof o $pos->error_diag;
    $fp vicini o muoiono “$file: $! „;
class= del

Risposta : Perl, Using testo:: CSV_XS/numero di conteggio dei riferimenti

A meno che abbiate bisogno più successivamente di quelle variabili supplementari, non dovete generarli:
stampare lo scalare (@$row), “\ n„;

Se la variabile di $size è necessaria più successivamente, potreste fare questo:
mio $size = @$row;
stampa $size, “\ n„;
Altre soluzioni  
 
programming4us programming4us