Aus Textdatei nach bestimmten Wort Wörter auslesen (Allgemeines zu Perl)

[thread]18583[/thread]

Aus Textdatei nach bestimmten Wort Wörter auslesen

Tags: perl5 Ähnliche Threads

Leser: 24

Articles: hide open all | hide show old branches

+18 replies
Gast Gast_13

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:
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)
- payx
  
  2013-09-12 12:58
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo Gast_13,
  
  Guest Gast_13
  Gibt es da evtl ein Regex, womit man Worte auslesen kann?
  
  Du kannst auch hier split verwenden.
  
  Vielleicht hilft Dir dieser Vorschlag? (Frag nach, wenn Du etwas nicht verstehen solltest.)
  
  Code (perl): (dl )
  
  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 30
  
  #!/usr/bin/perl use strict; use warnings; my $words = 0; while (<DATA>) { my @wds = split(/[^\w.]+/, $_); print join "; ", @wds[2..$#wds]; print "\n"; $words += scalar(@wds)-2; } print("words=$words\n"); __DATA__ .SUBCKT D1N4148 Anode1 Kathode1 foo .SUBCKT D1N4248 Anode2 Kathode2 foo bar .SUBCKT D1N4348 Anode3 Kathode3 .SUBCKT D1N4448 Anode4 Kathode4 foo .SUBCKT D1N4548 Anode5 Kathode5 foo bar .SUBCKT D1N4648 Anode6 Kathode6 .SUBCKT D1N4748 Anode7 Kathode7 foo .SUBCKT D1N4848 Anode8 Kathode8 foo bar .SUBCKT D1N4948 Anode9 Kathode9
  
  HTH
  Grüße
  payx
- +16 replies
- Muffi
  
  2013-09-12 14:48
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  use strict; use warnings; my $a = q|TEST ist das Haus vom Test Ni Ko Laus|; my @words; push @words, split(/ /, $_) for ($a =~ /^Test (.*)/img); say join(',',@words); say scalar @words;
  
  [EDIT] Ha, geht doch als 1-Zeiler
  
  Code (perl): (dl )
  
  say scalar map { split(/ /, $_) } ($a =~ /^Test (.*)/img);
  
  Last edited: 2013-09-13 11:31:11 +0200 (CEST)
  1 + 1 = 10
  - +3 replies
  - GwenDragon
    
    2013-09-13 11:35
    User since
    2005-01-17
    14830 Artikel
    Admin1
    
    Wieso das
    
    Code (perl): (dl )
    
    { split(/ /, $_) }
    
    anstatt
    
    Code (perl): (dl )
    
    { split / / }
    
    ?
    Sinn?
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +2 replies
    - Muffi
      
      2013-09-13 11:39
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Nö.
      Ich finds lesbarer, aber Geschmackssache.
      
      Die Klammern bei der Liste hinten glaub ich kann man auch weglassen, wenn mans eher kurz mag.
      
      [EDIT]
      Weils mich jetzt interessiert hat: das Kürzeste was ich zusammengebracht habe
      
      Code (perl): (dl )
      
      say 0+map{split/ /}$a=~/^Test (.*)/img;
      
      Last edited: 2013-09-13 11:49:53 +0200 (CEST)
      1 + 1 = 10
      - pq
        
        2013-09-13 12:05
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        2013-09-13T09:39:13 Muffi
        Weils mich jetzt interessiert hat: das Kürzeste was ich zusammengebracht habe
        
        Code (perl): (dl )
        
        say 0+map{split/ /}$a=~/^Test (.*)/img;
        
        say 0+map{split$"}$a=~/^Test (.*)/img
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +12 replies
  - Gast Gast_13
    
    2013-09-26 13:58
    
    Hallo
    Es hat leider jetzt etwas länger gedauert mit wieder hier ins Forum schauen, deswegen melde ich mich erst jetzt wieder.
    Also den Code von payx habe ich nachvollziehen können, ist nur leider nicht ganz das was ich brauche. Bei dem Code wird quasi in jeder Zeile ab dem dritten Wort ausgelesen und hochgezählt. Ich brauche aber einen Code, der nur in der Zeile, die mit .SUBCKT anfängt, ab dem dritten Wort ausliest(Die anderen Zeilen in der Datei bestehen aus anderen Anfangswörtern und interessieren mich nicht). Zudem gibt es Probleme bei einer Zeile mit weniger als drei Wörtern, da subtrahiert er wieder ein Wort von der Hochzählung.
    Die anderen Hilfestellungen verstehe ich jetzt nicht so ganz, was genau geht auch als Einzeiler? Und ist das jetzt das gleiche wie der Erste Code? Das Compilieren erzeugt einen Error und ich weis nicht so recht was ich damit anfangen soll. (syntax error at line 14, near "say join")
    Gruß
    Sabrina
    Last edited: 2013-09-26 14:00:08 +0200 (CEST)
    - +9 replies
    - payx
      
      2013-09-26 16:04
      
      User since
      2006-05-04
      564 Artikel
      BenutzerIn
      
      Hallo Sabrina,
      
      Guest Gast_13
      Bei dem Code wird quasi in jeder Zeile ab dem dritten Wort ausgelesen und hochgezählt. Ich brauche aber einen Code, der nur in der Zeile, die mit .SUBCKT anfängt, ab dem dritten Wort ausliest(Die anderen Zeilen in der Datei bestehen aus anderen Anfangswörtern und interessieren mich nicht).
      
      Dass das vorkommen kann, hattest Du nicht erwähnt. Mein Code-Beispiel war ja auch nur als Entwurfsidee gedacht. next unless /^\.SUBCKT /; am Anfang der while-Schleife überspringt alle Zeilen, die nicht genau so anfangen.
      
      Guest Gast_13
      Zudem gibt es Probleme bei einer Zeile mit weniger als drei Wörtern, da subtrahiert er wieder ein Wort von der Hochzählung.
      
      Auch dass das vorkommen kann, hattest Du nicht erwähnt.
      
      Also, hier mein Code nochmals überarbeitet:
      
      Code (perl): (dl )
      
      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 30 31 32 33 34 35 36
      
      #!/usr/bin/perl use strict; use warnings; my $words = 0; while (<DATA>) { next unless /^\.SUBCKT /; #my @wds = splice([split(/[^\w.]+/)],2); (lieber nicht so, siehe Hinweis von Linuxer!) my @wds = split(/[^\w.]+/); @wds = splice(@wds,2); next unless @wds; print join "; ", @wds; print "\n"; $words += scalar(@wds); } print("words=$words\n"); __DATA__ .SUBCKT D1N4148 Anode1 Kathode1 foo .SUBCKT D1N4248 Anode2 Kathode2 foo bar .SUBCKT D1N4348 Anode3 Kathode3 .UBCKT D1N4448 Anode4 Kathode4 foo SUBCKT D1N4548 Anode5 Kathode5 foo bar .SUBCKTa D1N4648 Anode6 Kathode6 .SUBCKT D1N4748 .SUBCKT .SUBCKT D1N4948 Anode9 Kathode9
      
      Hoffentlich hilft Dir das weiter.
      
      Grüße
      payx
      
      Editiert von payx: Code geändert gemäß Hinweis von Linuxer
      Last edited: 2013-09-27 12:19:37 +0200 (CEST)
      - +2 replies
      - Linuxer
        
        2013-09-26 16:37
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        Hi,
        nur eine Anmerkung:
        
        mit my @wds = splice([split(/[^\w.]+/)],2); wäre ich (noch) ~~vorsichtig~~zurückhaltend.
        Einmal, weil es erst ab 5.14.0 verfügbar ist und
        nochmal weil es auch in 5.18.0 noch als hochexperimentell bezeichnet wird.
        
        perldoc -f splice
        Starting with Perl 5.14, splice can take scalar EXPR, which must hold a reference to an unblessed array. The argument will be dereferenced automatically. This aspect of splice is considered highly experimental. The exact behaviour may change in a future version of Perl.
        
        Daher mit splice() auf zwei Zeilen:
        
        Code: (dl )
        
        1 2
        
        my @wds = split(/[^\w.]+/); @wds = splice(@wds,2);
        
        Oder X-mal shift():
        
        Code: (dl )
        
        1 2
        
        my @wds = split(/[^\w.]+/); shift @wds for 1 .. 2;
        
        oder mit Array-Slice
        
        Code: (dl )
        
        1 2
        
        my @wds = split(/[^\w.]+/); @wds = @wds[ 2 .. $#wds ];
        
        edit:
        noch eine Variante (ich wusste, mir fehlte da noch was):
        
        Code: (dl )
        
        1 2
        
        # ignore the first two fields ( undef, undef, my @wds ) = split(/[^\w.]+/);
        
        Last edited: 2013-09-26 22:05:34 +0200 (CEST)
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        payx
        
        2013-09-26 17:56
        
        User since
        2006-05-04
        564 Artikel
        BenutzerIn
        
        Hallo Linuxer,
        
        danke für den Hinweis! Ich wollte erst etwas wie *my @wds = (split(/[^\w.]+/))[2..]; schreiben, aber der Range-Operator geht ja nur mit beiden Grenzen.
        
        Auf jeden Fall besser auf zwei Zeilen aufteilen, wie Du das vorgeschlagen hast. Das ist auch viel besser lesbar.
        
        Grüße
        payx
      - +6 replies
      - Gast Gast_13
        
        2013-10-10 11:07
        
        Noch mal Hallo
        
        Hab es so hinbekommen wie ich das brauche, mit folgendem Programm: (Ist Teil eines größerem, was ich dann noch zusammenfüge)
        
        Code (perl): (dl )
        
        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 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44
        
        #!/usr/bin/perl use strict; use warnings; my $_; my $name1; my @wds; open(my $WorteFh, '>', 'Worte.TXT' ) or die $!; my @txtfiles = glob( "*.txt" ) or die $!; for my $file ( sort @txtfiles ) { open( my $fh, '<', $file ) or next; local $/; my $content = <$fh>; close $fh; my $words = 0; if ($content =~ m{ (\n) \.SUBCKT \b }mix )# Test ob .Subckt enthalten { if ($content =~ m/^\.subckt ([\w.\s]+)/im) # Wenn ja, alles nach .Subckt auslesen { $name1 = $1; (undef, my @wds) = split(/ /,$name1); next unless @wds; print join "; ", @wds; print "\n"; $words += scalar(@wds); print("words=$words\n"); print "$file\n$name1\n"; print $WorteFh "$words\n"; } } } close $WorteFh;
        
        Bestimmt kann man das auch schöner schreiben, aber für mich ist das so übersichtlich und verständlich wie ich das gemacht habe. Allerdings habe ich jetzt noch das Problem, wenn ich z.B. folgenden Dateiinhalt auslese:
        
        *******************************************
        *#
        .SUBCKT D1N4148test 1 2
        *
        * The re
        
        Und hinter der 2 ein Leerzeichen in der Datei ist, dies als ein Wort ausgelesen wird. Kann ich das irgendwie vermeiden?
        
        Lieben Gruß
        Last edited: 2013-10-10 11:39:44 +0200 (CEST)
        
        +5 replies
        
        Gast wer
        
        2013-10-10 15:21
        
        Code (perl): (dl )
        
        1 2 3 4 5 6
        
        if ($content =~ m{^\.SUBCKT\s+\S+\s+([\w.\s]+?)\s+$}i ) { my $name1 = $1; my @wds = split(/\s+/,$name1); ... }
        
        Last edited: 2013-10-10 15:23:09 +0200 (CEST)
        
        +4 replies
        
        Gast Gast_13
        
        2013-10-14 10:30
        
        Danke schon mal, das hilft mir aber nur, wenn wirklich Leerzeichen dahinter sind. Aber was, wenn nicht? Kann man das Regex so schreiben, dass es egal ist ob da noch Leerzeichen kommen oder nicht. Das kann nämlich unterschiedlich sein.
        Last edited: 2013-10-14 11:22:14 +0200 (CEST)
        
        gelöscht 2013-10-14 11:27
        
        +2 replies
        
        Gast wer
        
        2013-10-14 11:29
        
        Beim letzten fehlt das "."
        
        Code (perl): (dl )
        
        1 2 3 4 5 6
        
        if ($content =~ m{^\.SUBCKT\s+\S+\s+([\w.\s]+?[\w.]+)\s*$}i ) { my $name1 = $1; my @wds = split(/\s+/,$name1); ... }
        
        so ist besser
        Last edited: 2013-10-14 12:49:56 +0200 (CEST)
        
        Gast Gast_13
        
        2013-10-14 12:55
        
        Super, vielen Dank an alle :)
        Last edited: 2013-10-14 13:06:18 +0200 (CEST)
    - +2 replies
    - Muffi
      
      2013-09-27 08:30
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Es wird wohl dran liegen, dass du kein "say" hast.
      Entweder (wenn du Perl 5.10 oder neuer hast) fügst du oben ein
      "use Feature 'say';" ein oder nimmst stattdessen ein print
      1 + 1 = 10
      - payx
        
        2013-09-27 10:09
        
        User since
        2006-05-04
        564 Artikel
        BenutzerIn
        
        Oder (auch wenn du Perl 5.10 oder neuer hast) Du schreibst -E statt -e, denn auch so werden die neuen Features aktiv (und übrigens am besten immer auch -w, um warnings zu aktivieren), also z.B. so:
        
        perl -wE "say 'hallo';" unter Windows
        
        bzw.
        
        perl -wE 'say "hallo";' unter Linux

View all threads created 2013-09-12 12:32.