Opened by Gast_13 at 2013-09-12 12:32
Hallo
Ich habe folgendes Problem:
Ich habe eine Textdatei mit Textinhalt, u.a. diese Zeile:
.SUBCKT D1N4148 Anode1 Kathode1
Aus dieser Zeile möchte ich die Wortanzahl hinter dem Ausdruck .SUBCKT D1N4148 auslesen und in eine Variable oder ähnliches schreiben, um diese Anzahl dann in einer neuen Textdatei verwenden zu können. Dies muss aber bei mehreren verschiedenen Dateien funktionieren.
Das Schema, wonach ich die Anzahl der Wörter (Pins) ist aber immer gleich:
.Subckt Leerzeichen Name Leerzeichen und dann die Worte die ich zählen möchte, diese können aus Buchstaben, Zahlen oder beides zusammen bestehen, Groß- und klein.
Wie man Worte zählen kann habe ich so rausgefunden:
Öffnen und Erstellen der neuen Dateien und auslesen aus einer bestehenden Datei ist auch kein Problem und funktioniert.
Gibt es da evtl ein Regex, womit man Worte auslesen kann?
Hatte ja schon was getestet:
Aber das funktioniert nicht und ist wahrscheinlich auch vollkommen falsch...Oder vllt mit dem Ausdruck wc?
Hoffe mir kann jemand helfen.
Gruß und Danke schon mal
modedit Editiert von GwenDragon: kaputtes Code-Tag entfernt
Last edited: 2013-09-26 18:04:04 +0200 (CEST)
Ich habe folgendes Problem:
Ich habe eine Textdatei mit Textinhalt, u.a. diese Zeile:
.SUBCKT D1N4148 Anode1 Kathode1
Aus dieser Zeile möchte ich die Wortanzahl hinter dem Ausdruck .SUBCKT D1N4148 auslesen und in eine Variable oder ähnliches schreiben, um diese Anzahl dann in einer neuen Textdatei verwenden zu können. Dies muss aber bei mehreren verschiedenen Dateien funktionieren.
Das Schema, wonach ich die Anzahl der Wörter (Pins) ist aber immer gleich:
.Subckt Leerzeichen Name Leerzeichen und dann die Worte die ich zählen möchte, diese können aus Buchstaben, Zahlen oder beides zusammen bestehen, Groß- und klein.
Wie man Worte zählen kann habe ich so rausgefunden:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10
open(FILE, "<Testtest.txt") or die "Could not open file: $!"; my ($words) = (0); while (<FILE>) { $words += scalar(split(/\W+/, $_)); } print("words=$words\n");
Öffnen und Erstellen der neuen Dateien und auslesen aus einer bestehenden Datei ist auch kein Problem und funktioniert.
Gibt es da evtl ein Regex, womit man Worte auslesen kann?
Hatte ja schon was getestet:
Code (perl): (dl
)
if($content =~ m/^\.subckt [a-z0-9]+ (.+)/im)
Aber das funktioniert nicht und ist wahrscheinlich auch vollkommen falsch...Oder vllt mit dem Ausdruck wc?
Hoffe mir kann jemand helfen.
Gruß und Danke schon mal
modedit Editiert von GwenDragon: kaputtes Code-Tag entfernt
Last edited: 2013-09-26 18:04:04 +0200 (CEST)