Noob mit Regex Problemstellung (Allgemeines zu Perl)

[thread]19638[/thread]

Noob mit Regex Problemstellung

Tags: regex Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+7 replies
NitroXpress

2015-05-02 10:59

User since
2015-05-02
13 Artikel
BenutzerIn

Hallo Leute,

zuerst einmal viele Grüsse an alle Forumsteilnehmer.

Ich befasse mich erst seit Kurzem mit Perl und konnte schon einige Problemstellungen durch fleißiges Lesen in den Griff bekommen.
Hauptsächlich möchte ich die mächtigen Funktionen zur String-Manipulation nutzen.
Im Moment beiße ich mir leider die Zähne an einem anscheinened unlösbaren Problem aus.
Es handelt sich dabei um eine NC-Code Datei (Beispiel unten) in der ich den immer wiederkehrenden G1 am Anfang der Zeile durch G0 ersetzen möchte.
Allerdings nur, wenn im selben Satz auch F30000 vorkommt.

Beispiel Code:

...
G1 Z0.500 F30000
G1 X13.379 Y-36.065 F30000
G1 Z0.100 F30000
G1 E76.00000 F300000
G1 X13.760 Y-35.411 E76.37759 F2400.000
G1 X14.123 Y-34.917 E76.68356
G1 X14.170 Y-34.656 E76.81576
G1 X14.133 Y-34.485 E76.90331
G1 X14.038 Y-34.357 E76.98253
G1 X13.947 Y-34.323 E77.03113
G1 X13.673 Y-34.283 E77.16949
G1 X13.078 Y-34.094 E77.48100
G1 X13.163 Y-33.464 E77.79807
G1 X13.321 Y-33.182 E77.95920
...

Nun meine Frage an die Profis...
Ist das überhaupt machbar ?
Wenn ja, könnt Ihr mir einen Stups in die richtige Richtung geben ?

Gruss

Frank
Last edited: 2015-05-02 12:38:13 +0200 (CEST)
- MarkusH
  
  2015-05-02 13:21
  User since
  2012-04-08
  161 Artikel
  BenutzerIn
  So vielleicht?
  
  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 -w use strict; while (<DATA>) { chomp; printf "%s wird ", $_; if ( $_ =~ /^G1(.+?F30000)/ ) { printf "ersetzt durch %s\n", join ('', "G0", $1); } else { print "nicht ersetzt\n"; } } __DATA__ G1 Z0.500 F30000 G1 X13.379 Y-36.065 F30000 G1 Z0.100 F30000 G1 E76.00000 F300000 G1 X13.760 Y-35.411 E76.37759 F2400.000 G1 X14.123 Y-34.917 E76.68356 G1 X14.170 Y-34.656 E76.81576 G1 X14.133 Y-34.485 E76.90331 G1 X14.038 Y-34.357 E76.98253 G1 X13.947 Y-34.323 E77.03113 G1 X13.673 Y-34.283 E77.16949 G1 X13.078 Y-34.094 E77.48100 G1 X13.163 Y-33.464 E77.79807 G1 X13.321 Y-33.182 E77.95920
  
  Ergibt:
  G1 Z0.500 F30000 wird ersetzt durch G0 Z0.500 F30000
  G1 X13.379 Y-36.065 F30000 wird ersetzt durch G0 X13.379 Y-36.065 F30000
  G1 Z0.100 F30000 wird ersetzt durch G0 Z0.100 F30000
  G1 E76.00000 F300000 wird ersetzt durch G0 E76.00000 F30000
  G1 X13.760 Y-35.411 E76.37759 F2400.000 wird nicht ersetzt
  G1 X14.123 Y-34.917 E76.68356 wird nicht ersetzt
  G1 X14.170 Y-34.656 E76.81576 wird nicht ersetzt
  G1 X14.133 Y-34.485 E76.90331 wird nicht ersetzt
  G1 X14.038 Y-34.357 E76.98253 wird nicht ersetzt
  G1 X13.947 Y-34.323 E77.03113 wird nicht ersetzt
  G1 X13.673 Y-34.283 E77.16949 wird nicht ersetzt
  G1 X13.078 Y-34.094 E77.48100 wird nicht ersetzt
  G1 X13.163 Y-33.464 E77.79807 wird nicht ersetzt
  G1 X13.321 Y-33.182 E77.95920 wird nicht ersetzt
  $q =~ /(bb|[^b]{2})/
- +5 replies
- charly54
  
  2015-05-02 13:21
  User since
  2015-04-24
  10 Artikel
  BenutzerIn
  Hallo Frank,
  
  so könnte das klappen:
  
  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 @array = <DATA>; foreach( @array ){ s/G1/G0/ if(m/F30000/); print $_; } __DATA__ G1 Z0.500 F30000 G1 X13.379 Y-36.065 F30000 G1 Z0.100 F30000 G1 E76.00000 F300000 G1 X13.760 Y-35.411 E76.37759 F2400.000 G1 X14.123 Y-34.917 E76.68356 G1 X14.170 Y-34.656 E76.81576 G1 X14.133 Y-34.485 E76.90331 G1 X14.038 Y-34.357 E76.98253 G1 X13.947 Y-34.323 E77.03113 G1 X13.673 Y-34.283 E77.16949 G1 X13.078 Y-34.094 E77.48100 G1 X13.163 Y-33.464 E77.79807 G1 X13.321 Y-33.182 E77.95920
  
  Zur Erklärung:
  Daten in ein Array packen und dieses dann abarbeiten
  Der erste Regex ersetzt G1 durch G0, wenn die Bedingung im 2. Regex (if-Teil) erfüllt ist.
  print $_ gibt das Ergebnis aus.
  
  Das geht aber hier nur, wenn G1 nur einmal je Zeile vorkommt.
  Ich hoffe es hilft etwas und weiterhin viel Spaß mit Perl!
  Gruß,
  
  charly54.
  - +4 replies
  - NitroXpress
    
    2015-05-02 20:25
    
    User since
    2015-05-02
    13 Artikel
    BenutzerIn
    
    Hallo Leute,
    
    bin grad nach Hause gekommen und absolut begeistert von der Hilfestellung !
    Werd mich gleich mal dran machen das Ganze in mein bestehendes Script einzubauen.
    Vielen herzlichen Dank !
    
    Melde mich wieder wenns geklappt hat.
    
    Gruss
    
    Frank
    - +3 replies
    - NitroXpress
      
      2015-05-02 22:13
      
      User since
      2015-05-02
      13 Artikel
      BenutzerIn
      
      Hi Leute,
      
      erster Zwischenbericht.
      
      Was soll ich sagen...
      Es funktioniert tatsächlich !!!
      
      Die Methode von Markus habe ich leider nicht ans Laufen bekommen.
      Liegt wohl an mir...
      Trotzdem Danke für Deine Bemühungen !
      
      Auf die Idee, das ganze in ein array zu packen, war ich bisher noch nicht gekommen.
      Habe die Ganze Zeit die Datei Satz für Satz eingelesen.
      
      @charlie
      Ich verneige mein Haupt vor Dir
      
      Perl ist wirklich der Hammer !
      Ich konnte nichtmal zwinkern, schon war ein NC-Code mit ca. 2 Millionen Sätzen umgekrempelt und in die neue Output Datei geschrieben.
      
      Ihr werdet mich bestimmt auslachen, wenn ich zugebe, dass ich mich daran ca. 50 Stunden lang versucht habe...
      
      Gruss
      
      Frank
      - +2 replies
      - Linuxer
        
        2015-05-03 01:06
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Hi,
        
        das Array ist noch nicht mal nötig. Wenn das Dateien sind, dann lädst Du so die gesamte Datei erstmal in den Arbeitsspeicher. Mit Glück passiert nix Schlimmes, mit etwas Pech fängt die Maschine das Swappen an und mit viel Pech platzt das Programm mit einem "out of memory" Fehler...
        
        Dann ist Dein Kriterium noch etwas unklar. Die Ersetzung soll stattfinden, wenn in der Zeile "F30000" auftaucht; was ist, wenn "F300000" (also F30000 als Teilstring enthalten ist) auftaucht. Soll dann immer noch ersetzt werden oder nicht?
        
        Das zu ersetzende "G1" steht immer am Zeilenanfang? Dann würde ich es auch in der Ersetzung entsprechend verankern.
        
        Die Aufgabe lässt sich sogar recht schön als sogenannter Perl-Einzeiler darstellen; hier sogar mit Anlegen einer Backup-Datei.
        
        Lösung als Perl-Einzeiler (alles ersetzen, auch bei "F300000"):
        
        Code: (dl )
        
        $ perl -i.old -pE 's/^G1/G0/ if m/F30000/' ncfile.dat
        
        Lösung als Perl-Einzeiler (Ersetzen wenn F30000 mit Wortgrenzen gefunden wird):
        
        Code: (dl )
        
        $ perl -i.old -pE 's/^G1/G0/ if m/\bF30000\b/' ncfile.dat
        
        Beide Varianten legen eine Kopie der Originaldatei mit einer Endung ".old" an (Dank der Option -i.old).
        Für einen Einsatz im WinDOS-System muss wahrscheinlich der ' durch ein " ersetzt 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!
        
        NitroXpress
        
        2015-05-03 09:27
        
        User since
        2015-05-02
        13 Artikel
        BenutzerIn
        
        Hi,
        
        danke für den Hinweis mit F300000 !
        Das wäre ins Auge gegangen...
        
        Im original NC-Code steht Gott sei Dank F30000.000 und F300000.00000
        Die Nullen nach dem Komma hatte ich vorher schon abgeschnitten und dann den G1 ersetzt.
        Jetzt werde ich zuerst den G1 ersetzen und danach erst die Nullen abschneiden.
        
        G1 steht immer am Anfang und es sollte keine Verankerung nötig sein.
        Trotzdem guter Tip.
        
        Man lernt nie aus...
        
        Gruss
        
        Frank
        Last edited: 2015-05-03 09:29:42 +0200 (CEST)

View all threads created 2015-05-02 10:59.