Frage : Perl, Using Text:: CSV_XS/Zählimpulszahl von Hinweisen

Ich lese eine CSV Akte mit einer riesigen Menge Spalten. Leider beginnt die Überschrift gerade an Linie, 8 folglich, das ich den getline Befehl verwende. Sobald Linie 8 erreicht hat, möchte ich die Spaltenanzahl zählen, welche die Akte enthält. Das ist exactely, wo ich stuck. bin 
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:

# offene Rechnung-Zahl archiviert
    mein $pos = Text:: CSV_XS->new ({binäres => 1,
                                    sep_char => „; “});

    mein $fp, „<“, $file öffnen oder „$file sterben: $! “;
    
    #Counter
    mein $lcnt = 0;
    
    #Go Abflussrinne jede Linie
    während (mein $row = $pos->getline ($fp))
    {
    
        $lcnt++;
        # zunächst Linie wenn nicht Überschriftlinie
        zunächst wenn ($lcnt < 8);
    
        # Handgriff-Überschrift
        wenn ($lcnt == 8)
        {
            
            # jetzt hier möchte ich überprüfen, wieviele Hinweise $row hat ($row-> [???])
            
        }
        
    }

    $pos->eof oder $pos->error_diag;
    nahe $fp oder sterben „$file: $! “;

Antwort : Perl, Using Text:: CSV_XS/Zählimpulszahl von Hinweisen

Es sei denn Sie jene Extravariablen später benötigen, brauchen Sie nicht, sie zu verursachen:
Scalar (@$row), „\ n“ drucken;

Wenn die $size Variable später benötigt, konnten Sie dies tun:
mein $size = @$row;
Druck $size, „\ n“;
Weitere Lösungen  
 
programming4us programming4us