Zeilen löschen (Allgemeines zu Perl)

[thread]19983[/thread]

Zeilen löschen

Tags: perl5 Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+17 replies
NitroXpress

2016-02-13 12:13

User since
2015-05-02
13 Artikel
BenutzerIn

Hallo Leute,

ich möchte Euch mal wieder um etwas Starthilfe bitten...

Ich lese eine Textdatei in ein Array um verschiedene Stringmanipulationen auszuführen, was Dank Eurer Hilfe super funktioniert.
Hierbei untersuche ich die einzelnen Sätze nach bestimmten Kriterien um bestimmte Ausdrücke zu ersetzen bzw. zu löschen.

Nun würde ich gerne Zeilen löschen, wenn in der darauffolgenden Zeile derselbe Ausdruck vorhanden ist.

Habt Ihr einen Tip für mich, wie man dieses "vorausschauende Löschen" umsetzen könnte ?

Gruss

Frank
- +16 replies
- bianca
  
  2016-02-13 12:19
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Ich würde halt durch das Array iterieren und dann jedes mit dem [+1] vergleichen. Oder was genau möchtest du wissen?
  10 print "Hallo"
  20 goto 10
  - +15 replies
  - NitroXpress
    
    2016-02-13 12:43
    
    User since
    2015-05-02
    13 Artikel
    BenutzerIn
    
    Hallo,
    
    hier ein kurzes Beispiel:
    
    ...
    G1 X50 F30000
    G1 x100 F30000
    ...
    
    Nun würde ich gerne den Satz (G1 X50 F30000) löschen wenn im folgenden Satz der Ausdruck "F30000" wieder vorkommt.
    
    Gruss
    
    Frank
    - +14 replies
    - bianca
      
      2016-02-13 13:39
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Ja. Und womit hast du Probleme?
      10 print "Hallo"
      20 goto 10
      - +13 replies
      - NitroXpress
        
        2016-02-13 13:50
        
        User since
        2015-05-02
        13 Artikel
        BenutzerIn
        
        Das Problem ist, dass ich die Löschung der Zeile davon abhängig machen möchte, ob der Ausdruck "F30000" in der nächsten Zeile wieder vorkommt.
        
        Gruss
        
        Frank
        
        +12 replies
        
        MarkusH
        
        2016-02-13 14:15
        
        User since
        2012-04-08
        162 Artikel
        BenutzerIn
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
        
        my @data = <DATA>; for (my $i=0; $i <= $#data -1; $i++) { my @current = split(" ", $data[$i]); my @next = split(" ", $data[$i+1]); if ($current[2] eq $next[2]) { $data[$i] = undef; } } print @data; __DATA__ G1 X50 F30000 G1 X100 F30000 G1 X100 F3000
        
        $q =~ /(bb|[^b]{2})/
        
        +9 replies
        
        NitroXpress
        
        2016-02-13 14:22
        
        User since
        2015-05-02
        13 Artikel
        BenutzerIn
        
        Danke Dir !
        
        Mal sehen, ob ich das in meine bestehende foreach Schleife noch mit rein bekomme...
        
        Gruss
        
        Frank
        
        NitroXpress
        
        2016-02-13 16:01
        
        User since
        2015-05-02
        13 Artikel
        BenutzerIn
        
        Hi Markus,
        
        ich habs leider nicht hinbekommen...
        Trotzdem Danke für Deine Bemühungen !
        
        Gruss
        
        Frank
        
        +7 replies
        
        GwenDragon
        
        2016-02-13 16:20
        
        User since
        2005-01-17
        14875 Artikel
        Admin1
        
        Dann zeig doch mal was du gemacht hast, dann könne wir deinen Fehler eher beheben.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +6 replies
        
        NitroXpress
        
        2016-02-13 16:41
        
        User since
        2015-05-02
        13 Artikel
        BenutzerIn
        
        Hi Gwen,
        
        ich möchte die Lösung ja nicht auf dem Silbertablet serviert bekommen, sondern will auch verstehen was ich da mache.
        
        Um den Code von Markus zu verstehen reicht mein Perl Know How aber anscheinend (noch) nicht aus :-(
        
        Also werde ich weiter knabbern...
        
        Gruss
        
        Frank
        
        +5 replies
        
        GwenDragon
        
        2016-02-13 16:49
        
        User since
        2005-01-17
        14875 Artikel
        Admin1
        
        Frag doch was du nicht verstehst oder lies in Perl-Büchern oder sieh in Perl-Online-Tutorials nach -- wie du willst.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +4 replies
        
        NitroXpress
        
        2016-02-13 17:36
        
        User since
        2015-05-02
        13 Artikel
        BenutzerIn
        
        Ich komm nicht drauf...
        
        Hier der Code:
        
        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
        
        use strict; use warnings; open INPUTFILE, "<", "filter.gcode" or die $!; open OUTPUTFILE, ">", "composition.gcode" or die $!; my @data = <INPUTFILE>; for (my $i=0; $i <= $#data -1; $i++) { my @current = split(" ", $data[$i]); my @next = split(" ", $data[$i+1]); if ($current[2] eq $next[2]) { $data[$i] = undef; } print OUTPUTFILE $data; } close INPUTFILE; close OUTPUTFILE; print "done";
        
        modedit Editiert von pq: code-tags hinzugefügt
        Last edited: 2016-02-13 19:00:44 +0100 (CET)
        
        betterworld
        
        2016-02-13 17:45
        
        User since
        2003-08-21
        2614 Artikel
        ModeratorIn
        
        Gibt es eine Fehlermeldung oder ist das Resultat falsch? Nenn mal etwas mehr Details :)
        
        Ich werde oben bei MarkusH nochmal was dazuschreiben, wie man das verbessern könnte.
        Lieblingsmodule: IPC::System::Simple, Path::Class
        
        NitroXpress
        
        2016-02-13 17:45
        
        User since
        2015-05-02
        13 Artikel
        BenutzerIn
        
        Ich hab grad festgestellt, dass es nicht ausreicht den letzten Ausdruck der zwei Zeilen zu vergleichen :-(
        
        Ich muss das also zwingend von "F30000" abhängig machen.
        
        Mein Hirn qualmt so langsam...
        
        Gruss
        
        Frank
        
        hlubenow
        
        2016-02-13 17:49
        
        User since
        2009-02-22
        885 Artikel
        BenutzerIn
        
        Lies' doch die Datei mit Tie::File in ein Array. Dann hast Du auch keine Probleme mit sehr großen Dateien. Und Du kannst dann einfach in dem Array mit
        
        Code (perl): (dl )
        
        $array[$nr + 1]
        
        die nächste Zeile überprüfen. Mußt im Skript natürlich noch darauf eingehen, daß das nicht in der letzten Zeile geschehen darf. Also
        
        Code (perl): (dl )
        
        if ($nr == $#array) { next; }
        
        oder so.
        
        +2 replies
        
        betterworld
        
        2016-02-13 17:49
        
        User since
        2003-08-21
        2614 Artikel
        ModeratorIn
        
        Zwei Verbesserungsvorschläge:
        
        Code: (dl )
        
        1 2 3
        
        for (my $i=0; $i <= $#data -1; $i++) # ersetzen durch: for my $i (0..$#data-1)
        
        Das ist viel kürzer und sieht nicht so nach C aus :)
        
        Außerdem:
        
        Code: (dl )
        
        1 2 3
        
        $data[$i] = undef; # Ersetzen durch $data[$i] = "";
        
        Denn sonst würde es Warnungen ausgeben...
        
        Außerdem würde es eine Warnung geben, wenn eine Zeile keine 3 Felder hat, die man splitten kann. Das kommt insbesondere dann vor, wenn man die Zeile gerade entfernt hat. Da ist natürlich auch gefragt, wie denn hier das korrekte Verhalten gewünscht wäre... Soll man dann stattdessen nochmal die vorherige Zeile nehmen, weil die Zeilen ja näher zusammengerückt sind?
        Lieblingsmodule: IPC::System::Simple, Path::Class
        
        NitroXpress
        
        2016-02-13 18:31
        
        User since
        2015-05-02
        13 Artikel
        BenutzerIn
        
        Hallo Leute,
        
        ich krieg grad gar nix mehr gebacken...
        
        Werd erst mal ne Nacht drüber schlafen und Morgen wieder mit klarem Kopf dran gehen.
        
        Trotzdem ein herzliches Dankeschön an alle für die Hilfestellung !
        
        Gruss
        
        Frank

View all threads created 2016-02-13 12:13.