Pergunta : Perl, Using o texto:: CSV_XS/número da contagem de referências

Eu estou lendo uma lima de CSV com uma enorme quantidade de colunas. Infelizmente o encabeçamento apenas começa na linha 8 conseqüentemente que eu uso o comando do getline. Uma vez que a linha 8 alcangou eu gostaria de contar o número de colunas que a lima contem. Isso é exactely o lugar onde eu sou stuck. class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do 
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:
o número de cliente aberto notpretty do ># " do class= " de " codeSnippet747588 do id= do 
new ({=> binário 1,
                                    => sep_char “; ”});

    abrir meu $fp, “<”, $file ou morrer “$file: $! ”;
    
    #Counter
    meu $lcnt = 0;
    
    calha do #Go cada linha
    quando (meu $row = $pos->getline ($fp))
    {
    
        $lcnt++;
        # em seguida linha se não linha do encabeçamento
        em seguida se ($lcnt < 8);
    
        # encabeçamento do punho
        se (== 8 de $lcnt)
        {
            
            # agora aqui eu gostaria de verific quantas referências $row tem ($row-> [???])
            
        }
        
    }

    $pos->eof ou $pos->error_diag;
    $fp próximos ou morrem “$file: $! ”;
class= do

Resposta : Perl, Using o texto:: CSV_XS/número da contagem de referências

A menos que você precisar aquelas variáveis extra mais tarde, você não precisa de criá-las:
imprimir o scalar (@$row), “\ n”;

Se a variável de $size está mais atrasada necessário, você poderia fazer este:
meu $size = @$row;
cópia $size, “\ n”;
Outras soluções  
 
programming4us programming4us