Probleme mit Ausdrücken (solved) (Allgemeines zu Perl)

[thread]16904[/thread]

Probleme mit Ausdrücken [solved]

Tags: perl5 Similar Threads

Readers: 26

Articles: hide open all | hide show old branches

+22 replies
Trommelwirbel

2011-11-10 17:05
User since
2011-11-10
28 articles
BenutzerIn
Hallo Allerseits,

ich habe ein kleines Problem mit Ausdrücken.
Und zwar will ich, wenn ich die Datei eingelesen habe bzw. die Zeilen, dass er jede Zeile durchsucht und nach dem Element schaut. Wenn es passt, soll er die Zahl hinter dem Element sich rausziehen und dann genau so viele Zeilen hinter der aktuellen Zeile ausgeben.

So sieht im Moment mein Code aus:

Einlesen der Dateien und dann für jedes Elemente jede Zeile abfahren.
Das er wirklich nur die Zeile findet die ich will funktioniert. Das ist nicht mein Problem. Ich bekomme es aber einfach nicht hin, dass er dann die darauffolgenden Zeilen Ausgibt!!
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

open (IN_elements , "<elemente.txt"); while(<IN_elements>){ chomp; $element = substr($_,0,4); $elemente[$q] = $element; $q += 1; } my (@zeilen) = (); my $zeile; my $n = 0; open (IN , "<hq_regio_neu.txt"); while(<IN>){ chomp; $zeile = $_; $zeilen[$n] = $zeile; $n +=1 ; } my @lines = <hq_regio_neu.dat> ; foreach $element(@elemente){ open (Out,">>$element.txt"); foreach $zeile(@zeilen){ if($zeile =~/$element /){ if(length($zeile)<=(length($element)+2)){ $sub = substr($zeile,length($element)+1,1); print Out $zeile,"\n",$sub; }}}
Jemand eine Idee bzw, versteht jemand mein Problem?

Gruß Trommelwirbel
Last edited: 2011-11-10 17:12:05 +0100 (CET)
- +20 replies
- Linuxer
  
  2011-11-10 18:17
  User since
  2006-01-27
  3891 articles
  HausmeisterIn
  So wie ich das Problem verstanden habe, könnte dies eine Lösung sein:
  
  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
  
  #!/usr/bin/perl use strict; use warnings; my $num = 0; while ( my $line = <DATA> ) { if ( $num == 0 && $line =~ m/LESE (\d+)/ ) { $num = $1; } elsif ( $num > 0 ) { print $line; $num--; } } __DATA__ LESE 3 a1 a2 a3 LESE 2 b1 b2 LESE 2 c1 c2
  
  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!
  - +19 replies
  - guest Trommelwirbel
    
    2011-11-14 11:56
    
    Also ich hab deins Ausprobiert, so würde ich das gern haben.
    Aber ich bekomm es nicht in mein Code rein, da er diese txt - Datei als Eingangsdatei hat. Irgendwie geht er gar nicht nach der if-abfrage in die while schleife.
    Last edited: 2011-11-14 11:58:07 +0100 (CET)
    - +18 replies
    - Trommelwirbel
      
      2011-11-14 13:00
      
      User since
      2011-11-10
      28 articles
      BenutzerIn
      
      @Linuxer: Könntest du mir vielleicht den Code kurz erklären, habe es hinbekommen, dass es funkst, aber leider habe ich Elemente, in den Zahlenkombinationen öffters vorkommen.
      
      Bsp.: Wenn ich Element 18 betrachte, gibt er mir nicht nur die Zeilen von ab 18, sondern auch die von 518.
      
      Hab schon probiert mit einer if - Abfrage, aber irgendwie geht das nicht.
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
      
      open (IN , "<hq_regio_neu.txt"); my $num = 0; while ( my $line = <IN> ) { if(length($line)<=(length($element)+2)){ if ( $num == 0 && $line =~ m/$element (\d+)/ ) { $num = $1; } elsif ( $num > 0 ) { print Out $line; $num--; } } }
      
      Gibt es in Perl nicht vielleicht eine Strikte Einhaltung für Ausdrücke?
      
      Nochmal, danke.
      
      modedit Editiert von pq: code-tags hinzugefügt
      Last edited: 2011-11-14 13:14:13 +0100 (CET)
      - +2 replies
      - pq
        
        2011-11-14 13:16
        
        User since
        2003-08-04
        12209 articles
        Admin1
        
        a) bitte benutze code-tags für code! steht in unserer FAQ und die anleitung versteckt sich hinter dem unscheinbaren link "Formatierungshilfe". ich hatte die code-tags schon bei deinem ersten posting hinzugefügt.
        b) bitte verwende konsistente einrückungen.
        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
        
        Trommelwirbel
        
        2011-11-14 13:19
        
        User since
        2011-11-10
        28 articles
        BenutzerIn
        
        Ok.
      - +15 replies
      - Linuxer
        
        2011-11-14 13:50
        
        User since
        2006-01-27
        3891 articles
        HausmeisterIn
        
        Was ist $element? Wie wird die Variable gefüllt?
        
        Kannst Du mal ein minimales lauffähiges Beispiel inklusive Beispieldaten liefern?
        Damit ließe sich das Problem besser nachvollziehen...
        So ganz verstehe ich Dein Problem derzeit nicht.
        
        Hier nochmal mein Code mit Kommentaren:
        
        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 45 46 47 48
        
        #! /usr/bin/perl use strict; # grosse Hilfe; immer einschalten use warnings; # wenigstens beim Entwickeln einschalten; auch grosse Hilfe my $num = 0; # Zaehler, wie viele Zeilen gelesen werden sollen # zeilenweise vom Handle DATA lesen; alternativ eben ein Handle einer selbst geoeffneten Datei while ( my $line = <DATA> ) { # wenn keine Zeile mehr zu lesen ist und die aktuelle Zeile # einen String enthaelt, der lesenswerte Zeilen definiert, dann # uebernehme die Anzahl der zu lesenden Zeilen nach $num # !!! wenn $num noch nicht 0 ist, dann wird eine Zeile mit einem # neuen "LESE xy" ausgegeben und nicht ausgewertet!!! if ( $num == 0 && $line =~ m/LESE (\d+)/ ) { $num = $1; } # wenn noch Zeilen zu lesen sind elsif ( $num > 0 ) { # gebe die aktuelle Zeile aus print $line; # und reduziere den Zaehler um eins $num--; } # weiter mit naechster Zeile } # DATA Sektion kann entfallen, wenn eigene Datendateien verwenden werden # und nicht vom Handle DATA gelesen wird __DATA__ LESE 3 a1 a2 a3 LESE 2 b1 b2 LESE 2 c1 c2 LESE 4 d1 d2 d3 LESE 3 # ich werde ausgegeben d4 d5 d6
        
        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!
        
        +14 replies
        
        Trommelwirbel
        
        2011-11-14 14:32
        
        User since
        2011-11-10
        28 articles
        BenutzerIn
        
        ok, hier ist mal ein ausschnitt aus der datei - die insgesamt etwas über 8500 zeilen hat.
        
        Das Markierte ist ein $element. Die Elemente sind einfach eine Standortbezeichnung, die als Zahl gegeben sind. Diese Zahlen sind dann auch der gesuchte Ausdruck. Für jedes Element, besteht in dieser Liste genau einmal das gewüschte Profil. Das Element und dann ein Leerzeichen, dies ist immer nur in der Elementenzeile der Fall. In den anderen Zeilen, kann z.B. die 18 nur in Kombination mit einem "." oder Zeilemumbruch stehen. Problem ist, dass im Moment die 518 zum Beispiel auch ausgegeben wird. Soll es aber nicht.
        
        18 5
        2 1.35
        5 3.25
        10 5.4
        25 9.63
        50 14.3
        19 5
        2 1.53
        5 3.65
        10 6.04
        25 10.71
        50 15.84
        21 5
        2 1.72
        5 4.1
        10 6.82
        25 12.28
        50 18.4
        29 5
        2 0.7
        5 1.87
        10 3.4
        25 6.89
        50 11.3
        33 5
        2 0.91
        5 2.39
        10 4.31
        25 8.66
        50 14.12
        37 5
        2 1.3
        5 3.26
        10 5.69
        25 11.01
        50 17.47
        41 5
        2 1.78
        5 4.33
        10 7.37
        25 13.7
        50 21.07
        46 5
        2 2.24
        5 5.3
        10 8.89
        25 16.26
        50 24.73
        
        Das ist im Moment der Code, der eine Elemente Liste erstellt und dann für jedes $element die Datei durchgehen soll. Das funktioniert auch soweit, nur leider Erkennt er auch andere in dem Ausdruck, wie gesagt, die Zeilen von 518 gibt er auch aus zum Beispiel.
        
        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
        
        use strict; use warnings; my (@elemente) = (); # Erzeugen einer leeren Liste my $element; my $y=0; open (IN_elements , "<elemente.txt"); # öffnet Txt - Datei in denen alle Elemente stehen while(<IN_elements>){ # Schleife weist jedem Element einen Listenplatz zu chomp; $element = substr($_,0,4); $elemente[$q] = $element; $q += 1; } foreach $element(@elemente){ open (Out,">>$element.txt"); open (IN , "<hq_regio_neu.txt"); my $num = 0; while ( my $line = <IN> ) { if ( $num == 0 && $line =~ m/$element (\d+)/ ) { $num = $1;} elsif ( $num > 0 ) { print Out $line; $num--; } } }
        
        Last edited: 2011-11-14 14:57:08 +0100 (CET)
        
        pq
        
        2011-11-14 14:39
        
        User since
        2003-08-04
        12209 articles
        Admin1
        
        findest du die einrückung wirklich lesbar? ist das absicht? oder ist da beim copy&paste was schiefgelaufen? in meinen augen wurden die geschweiften klammern da nach belieben in der landschaft plaziert.
        
        und beachte, dass eine farbige markierung nicht unbedingt in jedem textbrowser sichtbar ist, besser wäre fett.
        Last edited: 2011-11-14 14:41:14 +0100 (CET)
        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
        
        +3 replies
        
        Linuxer
        
        2011-11-14 16:14
        
        User since
        2006-01-27
        3891 articles
        HausmeisterIn
        
        Hi,
        
        wenn die Element-ID immer am Beginn der Zeile steht, kannst Du den Regex am Zeilenanfang verankern...
        
        Aus
        if ( $num == 0 && $line =~ m/$element (\d+)/ ) {
        
        wird dann
        if ( $num == 0 && $line =~ m/^$element (\d+)/ ) {
        
        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!
        
        +2 replies
        
        Trommelwirbel
        
        2011-11-14 16:24
        
        User since
        2011-11-10
        28 articles
        BenutzerIn
        
        Es steht zwar am Anfang, aber jetzt gibt er gar nichts mehr aus.
        
        Linuxer
        
        2011-11-14 16:54
        
        User since
        2006-01-27
        3891 articles
        HausmeisterIn
        
        Dann muss ich mir das später nochmal genauer anschauen. Derzeit ist die Zeit recht knapp.
        Wenn ich da heute noch zu komme, wird das wohl spät werden...
        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!
        
        topeg
        
        2011-11-14 18:17
        
        User since
        2006-07-10
        2611 articles
        BenutzerIn
        
        Ich weiß nicht ob ich dich korrekt verstanden habe.
        
        Du hast eine Datei "elemente.txt" in der sind Standortdaten gespeichert. Eine Standort beginnt mit einer Zahl gefolgt von (nicht näher spezifizierten) unbestimmten Anzahl von Zeilen
        Du hast eine Datei "hq_regio_neu.txt" Die entspricht diesem Format: more (723b)
        Darin Spezifiziert ist eine Region zusammen mit einer Angabe von Zeilen. das Format dieser Speziellen Angabe ist:
        
        Code: (dl )
        
        <Integer Zahl><Leerzeichen><Integer Zahl>
        
        .
        
        Nun willst du alle Regionsangaben aus "hq_regio_neu.txt" lesen und die entsprechende Anzahl von Zeilen des Blocks der Region aus "elemente.txt" lesen und in eine separate Datei schreiben.
        
        Ist das soweit Korrekt?
        
        Wenn ja würde ich es so implementieren:
        
        more (10.9kb)
        Last edited: 2011-11-14 18:18:22 +0100 (CET)
        
        +8 replies
        
        Linuxer
        
        2011-11-14 21:31
        
        User since
        2006-01-27
        3891 articles
        HausmeisterIn
        
        Hi,
        
        dann hier auch mal mein Lösungsvorschlag:
        
        more (15.0kb)
        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!
        
        +7 replies
        
        Trommelwirbel
        
        2011-11-15 10:51
        
        User since
        2011-11-10
        28 articles
        BenutzerIn
        
        @ linuxer: perfekt, das funktioniert! leider gibt es nur 1 problem. wenn ein block so aussieht:
        
        51 5
        2 4
        5 9.46
        10 15.85
        25 28.96
        
        dann gibt er mir den fehler: "Can't use an undefined value as an array reference at .. line 70
        
        ich glaube es liegt daran, das es nicht als komma zahl geschrieben ist!
        kann man da noch was machen?
        ansonsten funktioniert es und du hattest es richtig verstanden.
        
        Danke
        
        +6 replies
        
        topeg
        
        2011-11-15 11:11
        
        User since
        2006-07-10
        2611 articles
        BenutzerIn
        
        Mir fiel auf, dass die relevanten Zeilen einen Zyklus von 6 Zeilen haben. Ist das immer so? Wenn ja, dann kann man die Zeilen darüber ermitteln. So würden alle anderen heraus fallen auch wenn sie das richtige Format haben sollten.
        
        +5 replies
        
        Trommelwirbel
        
        2011-11-15 11:14
        
        User since
        2011-11-10
        28 articles
        BenutzerIn
        
        leider nicht, es kann auch mal 3,4,2 sein. es werden nämlich verschiedene datensätze eingelesen.
        
        +4 replies
        
        topeg
        
        2011-11-15 11:20
        
        User since
        2006-07-10
        2611 articles
        BenutzerIn
        
        Mann versuch mal ab Zeile 62:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13
        
        for my $element ( @elements ) { my $file = "$element.txt"; # nur bearbeiten wenn vorhanden if(exists($regio{$element})){ # ueberschreibendes Schreiben open my $outfh, '>', $file or die "open(w, $file) failed: $!\n"; # anhaengendes Schreiben #open my $outfh, '>>', $file or die "open(w+, $file) failed: $!\n"; print $outfh join( "\n", @{ $regio{$element} } ); close $outfh or die "close(w+, $file) failed: $!\n"; } }
        
        +3 replies
        
        Trommelwirbel
        
        2011-11-15 11:55
        
        User since
        2011-11-10
        28 articles
        BenutzerIn
        
        mh, leider schmeist er die mit den nicht-komma-zahlen raus. also gibt sie gar nicht erst aus
        
        +2 replies
        
        Linuxer
        
        2011-11-15 21:47
        
        User since
        2006-01-27
        3891 articles
        HausmeisterIn
        
        Das Problem liegt in der Subroutine read_regio().
        
        Dort wurde, wenn eine Zeile nur 2 Integer-Werte enthält, die Zeile ausgewertet und $regio und $lines auf die Integer-Werte gesetzt. Es fehlte die Prüfung, ob noch Zeilen übernommen werden müssen oder nicht.
        
        In diesem Fall wurden die Variablen auf 51 und 5 gesetzt.
        Für die nächste Zeile passte der Regex wieder und die Variablen werden dann mit 2 und 4 befüllt...
        
        Damit fällt die 51 raus, dafür dürfte ein Datensatz für die 2 auftauchen; oder evtl. einen bereits bestehenden Datensatz für die 2 erweitern.
        
        Hier mal eine überarbeitete Version:
        
        more (17.2kb)
        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!
        
        Trommelwirbel
        
        2011-11-21 10:05
        
        User since
        2011-11-10
        28 articles
        BenutzerIn
        
        Danke für die Hilfe. Es funktioniert alles wie ich es mir vorgestellt.
        Herzlichsten Dank!
- rosti
  
  2011-11-14 22:57
  User since
  2011-03-19
  3732 articles
  BenutzerIn
  Ok, hab auchn Vorschlag ;)
  
  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
  
  # Schleifenkörper über Handle my $span = undef; while(<DATA>){ my $x = [split]; if($x->[0] eq 'vier'){ # Ausdruck gefunden!, Anzahl der folgenden Zeilen in [1] $span = $. + $x->[1]; } if(defined $span && $. <= $span){ print $_; } } __END__ eins 1 zwei 2 drei 3 vier 4 fünf 5 sex 6 sieben 7 acht 8 neun 9 zehn 10
  
  Last edited: 2011-11-14 23:02:15 +0100 (CET)
  http://forum.rolfrost.de/
  
  Forum zu Fragen unserer Zeit

View all threads created 2011-11-10 17:05.