Pytanie : Perl, Using Tekst:: CSV_XS/Obliczenie liczba odnosić się

I czytać CSV Kartoteka z ogromna ilość kolumna. Niestety the Chodnikowiec właśnie zaczynać przy Linia 8 tym samym I używać the getline Rozkaz. Zawierać Linia 8 mieć I polubić the liczba kolumna the kartoteka zawierać. I być exactely dokąd I być stuck. 
(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:

# Otwarty Numer Konta Kartoteka
    mój $pos = Tekst:: CSV_XS->new ({binarny => (1),
                                    sep_char => "; "});

    otwierać mój $fp, "<", $file lub kostka do gry "$file: $! ";
    
    #Counter
    mój $lcnt = (0);
    
    #Go synklina linia linia
    podczas gdy (mój $row = $pos->getline ($fp))
    {
    
        $lcnt++;
        # Następnie linia jeśli nie Chodnikowiec linia
        następnie jeżeli ($lcnt < 8);
    
        # Rękojeść Chodnikowiec
        jeżeli ($lcnt == 8)
        {
            
            # Teraz tutaj I polubić teraz odnosić się $row mieć ($row-> [???])
            
        }
        
    }

    $pos->eof lub $pos->error_diag;
    zamknięty $fp lub kostka do gry "$file: $! ";

Odpowiedź : Perl, Using Tekst:: CSV_XS/Obliczenie liczba odnosić się

Jeśli ty potrzebować tamte ekstra zmienna opóźniony, ty potrzebować:
drukować skalar (@$row), "\ n";

Jeżeli the $size zmienna być potrzebować opóźniony, ty móc móc:
mój $size = @$row;
druk $size, "\ n";
Inne rozwiązania  
 
programming4us programming4us