Cuestión : Perl, usar el texto:: CSV_XS/número de la cuenta de referencias

Estoy leyendo un archivo de CSV con una enorme cantidad de columnas. Desafortunadamente el jefe apenas comienza en la línea 8 por lo tanto que utilizo el comando del getline. Una vez que la línea 8 ha alcanzado quisiera contar el número de columnas que el archivo contiene. Aquí es exactely donde estoy stuck. class= > " claro " 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:
el número de cuenta abierta notpretty del ># " del class= " de " codeSnippet747588 del id= del 
new ({=> binario 1,
                                    => sep_char “; ”});

    abrir mi $fp, “<”, $file o morir “$file: ¡$! ”;
    
    #Counter
    mi $lcnt = 0;
    
    canal del #Go cada línea
    mientras que (mi $row = $pos->getline ($fp))
    {
    
        $lcnt++;
        # después línea si no línea del jefe
        después si ($lcnt < 8);
    
        # jefe de la manija
        si (== de $lcnt 8)
        {
            
            # ahora aquí quisiera comprobar cuántas referencias tiene $row ($row-> [???])
            
        }
        
    }

    $pos->eof o $pos->error_diag;
    $fp cercanos o mueren “$file: ¡$! ”;
class= del

Respuesta : Perl, usar el texto:: CSV_XS/número de la cuenta de referencias

A menos que usted necesite esas variables adicionales más adelante, usted no necesita crearlas:
imprimir el escalar (@$row), “\ n”;

Si la variable de $size se necesita más adelante, usted podría hacer esto:
mi $size = @$row;
impresión $size, “\ n”;
Otras soluciones  
 
programming4us programming4us