Ich habe viele Fragen zu CSV-Dateien gefunden, aber nicht in Bezug auf eine normale ASCII-Datei (.dat
) Datei.Erhalten Sie die Anzahl der Spalten in einer ASCII-Datei
Angenommen, ich habe eine Subroutine sub writeMyFile($data)
, die verschiedene Werte in eine ASCII-Datei schreibt my_file.dat
. Jede Spalte ist dann ein Wert, den ich in einer anderen Unterroutine sub plotVals()
darstellen möchte, aber dafür muss ich die Anzahl der Spalten von my_file.dat
kennen, die nicht immer die gleiche ist.
Was ist eine einfache und lesbare Möglichkeit in Perl, die Anzahl der Spalten einer ASCII-Datei my_file.dat
zu haben?
Einige Beispiel Eingabe/Ausgabe-wäre (Anmerkung: Datei mehrere Zeilen haben könnte):
In:
(first line on my_data1.dat) -19922 233.3442 12312 0 0
(first line on my_data2.dat) 0 0 0
Out:
(for my_data1.dat) 5
(for my_data2.dat) 3
Meinst du, wie viele Zeichen ist jede Zeile breit? Können Sie eine Beispieleingabe/-ausgabe angeben? – xxfelixxx
Ändern 'writeMyFile', um die Anzahl der Spalten als erste Zeile der Datei hinzuzufügen? – Borodin
@xxfelixxx Entschuldigung, Sie haben Recht! Ich habe 2 Dummy-Beispiele hinzugefügt. Ich gehe davon aus, dass die Datei vollständig gefüllt ist (daher fehlen in den unteren Zeilen keine Messungen), und wahrscheinlich sollte eine leere Datei "0" oder "undef" zurückgeben. –