If - Then - Ersetze Syntax (Allgemeines zu Perl)

[thread]20643[/thread]

If - Then - Ersetze Syntax

Tags: perl6 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+12 replies
NeVe

2019-07-30 08:03

User since
2019-07-30
4 Artikel
BenutzerIn

Hallo zusammen,

ich bin relativ neu in dem Thema, also bitte steinigt mich nicht.

Ich versuche euch zu erklären was ich benötige:

(Das ist der Inhalt einer .txt Datei bei welchem der Inhalt geändert werden soll. Personenbezogene Daten sind X)

MARIS|DOC|XXXXX|GYN endgl. Brief ambulante OP|XXXXX|XXXX|8228284|1889286|XXXXXX12|XXXXX|0003999998||null|20190719|ZWMAMB

Was ich möchte: If Text includes “GYN” replace “null” with “GYN”

Bisher hab ich versucht das mit Grepwin zu realisieren, da es sich hier um Inhalte von .txt dateien handelt. Auch das ist gescheitert da er wohl so viele variablen nicht behandeln kann - oder ich es schlichtweg nicht auf die Kette bekomme.

Die Idee wäre allerdings das ganze per Programm/Batch/Script auszuführen. Da fehlt mir allerdings die Kenntnis wie ich das ganze auf einen Ordnerinhalt und .txt Dateien beziehe.

Danke schonmal im vorraus. Ich hoffe das ist nicht unlösbar. Alles was ich bisher versuchte ist klanglos gescheitert.
Last edited: 2019-07-30 11:10:00 +0200 (CEST)
- GwenDragon
  
  2019-07-30 11:23
  
  User since
  2005-01-17
  14745 Artikel
  Admin1
  
  Du sagst es wäre eine Textdatei. Ist das ein Datensatz pro Patient/Klient in der Datei?
  Oder wie sind die Datensätze aufgebaut?
  
  Du benutzt Perl 5.x oder das neuere Perl 6? Welche Version?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- Daxim
  
  2019-07-30 13:13
  User since
  2007-08-01
  114 Artikel
  BenutzerIn
  Einfachste Lösung:
  
  Code (shell): (dl )
  
  perl -i -lpe's/null/GYN/ if /GYN/' eingabedatei.txt
  
  Dies ist nicht robust. Die Ersetzung findet statt, wenn GYN irgendwo in einer Zeile vorkommt, z.B. als Teil eines der ausge-X-ten Bezeichner. Möchtest du vielleicht die Bedingung darauf einschränken, dass Feld 4 mit dem Text anfängt?
  
  Ähnliches trifft auf den Text zu, der ersetzt werden soll. Das erste Vorkommen von null, egal wo, wird ersetzt. Möchtest du vielleicht die Bedingung darauf einschränken, dass nur Feld 13 verändert werden kann?
- +8 replies
- haj
  
  2019-07-30 13:16
  User since
  2015-01-07
  551 Artikel
  BenutzerIn
  Ich vermute mal, die Aufgabe ist noch nicht ganz vollständig spezifiziert... für das Beispiel hier tut's das folgende:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  my $text = <<EOT; MARIS|DOC|XXXXX|GYN endgl. Brief ambulante OP|XXXXX|XXXX|8228284|1889286|XXXXXX12|XXXXX|0003999998||null|20190719|ZWMAMB EOT print "Vorher: $text\n"; $text =~ /GYN/ and $text =~ s/\|null\|/|GYN|/g; print "Nachher: $text\n";
  - +7 replies
  - NeVe
    
    2019-08-05 09:36
    
    User since
    2019-07-30
    4 Artikel
    BenutzerIn
    
    Hallo zusammen und Danke dass Ihr euch meinem Problem widmet. Ich war einige Tage im Urlaub und konnte daher noch nicht reagieren :)
    
    Also:
    
    Fakt ist folgender um es genauer zu spezifizieren:
    
    Ich habe einen Ordnerinhalt mit .DAT Dateien, welche jedoch mit dem Editor auslesbar sind.
    
    Eine dieser .DAT sieht zum beispiel so aus:
    
    MARIS|DOC|XXXXX|GYN endgl. Brief ambulante OP|XXXXX|XXXX|8228284|1889286|XXXXXX12|XXXXX|null||null|20190719|ZWMAMB
    
    Ich muss beide "null" ersetzen.
    
    Das erste "null" mit einem Fixen, immer gleich bleibenden Wert bei allen .DAT dateien:
    
    200088
    
    Das zweite "null" hängt von dem Wort ab was an Position von "GYN" steht. Steht dort GYN soll auch als zweite "null" GYN stehen. Steht dort AMB soll als "null" AMB stehen.
    
    Zwei Beispiele aus einem Ordner wie es aussehen muss:
    
    Beispieldatei 1 vorher:
    
    MARIS|DOC|XXXXXX|CH2 endgültiger Arztbrief|XXXXX|XXXXX|8018221|XXXXX|XXXXX|20190527|null||null|20190527|ZWMAB
    
    Nachher:
    
    MARIS|DOC|XXXXX|CH2 endgültiger Arztbrief|XXXXX|XXXXX|8018221|XXXXX|XXXXX|20190527|200088||CH2|20190527|ZWMAB
    
    zweite Datei vorher:
    
    MARIS|DOC|XXXXX|GYN endgl. Brief ambulante OP|XXXXX|XXXX|8228284|1889286|XXXXXX12|XXXXX|null||null|20190719|ZWMAMB
    
    nacher:
    
    MARIS|DOC|XXXXX|GYN endgl. Brief ambulante OP|XXXXX|XXXX|8228284|1889286|XXXXXX12|XXXXX|200088||GYN|20190719|ZWMAMB
    
    WICHTIG! Es dürfen keine Zeilenumbrüche am ende des Textes vorhanden sein. Sonst kann die Datei nicht weiterverarbeitet werden.
    
    Es war mir möglich einen Powershellbefehl dafür zu schreiben der auch funktioniert, allerdings hängt dieser einen linebreak am Ende an und das ist nicht optimal. Da ich nicht der Mega Programmierer bin und PERL ja mit Regex arbeitet dachte ich wäre es eine gute alternative :)
    
    *EDIT* Da ich ja bereits einen funktionierenden Shell Code besitze könnte man vereinfacht auch hingehen und sagen man macht einen Befehl um aus allen .DAT am ende des Inhalts den Linebreak zu entfernen.
    
    Möglicher Coder hierzu wäre denke ich:
    
    use strict;
    
    my $str = 'XXXXXXXXXXXXXXX';
    my $regex = qr/\n/mp;
    my $subst = '';
    
    my $result = $str =~ s/$regex/$subst/rg;
    
    print "The result of the substitution is' $result\n";
    
    Ich weiß allerdings nicht wie ich das auf einen ganzen Pfadinhalt beziehe.
    Last edited: 2019-08-05 09:41:39 +0200 (CEST)
    - +6 replies
    - GwenDragon
      
      2019-08-05 09:50
      
      User since
      2005-01-17
      14745 Artikel
      Admin1
      
      Idee, ich nehme an die Felder haben immer das auszulesende Wort und die null an denselben Stellen:
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14
      
      #Vorher: # #MARIS|DOC|XXXXXX|CH2 endgültiger Arztbrief|XXXXX|XXXXX|8018221|XXXXX|XXXXX|20190527|null||null|20190527|ZWMAB # #Nachher: # #MARIS|DOC|XXXXX|CH2 endgültiger Arztbrief|XXXXX|XXXXX|8018221|XXXXX|XXXXX|20190527|200088||CH2|20190527|ZWMAB my $line = "ARIS|DOC|XXXXXX|CH2 endgültiger Arztbrief|XXXXX|XXXXX|8018221|XXXXX|XXXXX|20190527|null||null|20190527|ZWMAB"; my @felder = split '|',$line; if ($felder[3] =~ /(.+) /) { $felder[10] = 200088; $felder[12] = $1; }
      
      Last edited: 2019-08-05 09:51:56 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +5 replies
      - NeVe
        
        2019-08-05 09:58
        
        User since
        2019-07-30
        4 Artikel
        BenutzerIn
        
        2019-08-05T07:50:08 GwenDragon
        Idee, ich nehme an die Felder haben immer das auszulesende Wort und die null an denselben Stellen:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14
        
        #Vorher: # #MARIS|DOC|XXXXXX|CH2 endgültiger Arztbrief|XXXXX|XXXXX|8018221|XXXXX|XXXXX|20190527|null||null|20190527|ZWMAB # #Nachher: # #MARIS|DOC|XXXXX|CH2 endgültiger Arztbrief|XXXXX|XXXXX|8018221|XXXXX|XXXXX|20190527|200088||CH2|20190527|ZWMAB my $line = "ARIS|DOC|XXXXXX|CH2 endgültiger Arztbrief|XXXXX|XXXXX|8018221|XXXXX|XXXXX|20190527|null||null|20190527|ZWMAB"; my @felder = split '|',$line; if ($felder[3] =~ /(.+) /) { $felder[10] = 200088; $felder[12] = $1; }
        
        Danke soweit für deine Bemühung.
        Ja die Zeichen stehen immer an selber Position.
        
        Der Code klappt aber nicht.
        Der Perl / REGEX Tester gibt mir folgende Meldungen:
        
        | An alternator at this position effectively truncates the entire pattern, rendering any other tokens beyond this point useless
        / An unescaped delimiter must be escaped with a backslash (\)
        / An unescaped delimiter must be escaped with a backslash (\)
        
        Wie bereits erwähnt, ich wäre auch zufrieden wenn in allen vorhandenen .DAT Dateien eines Ordners der Line Break entfernt wird.
        
        +4 replies
        
        GwenDragon
        
        2019-08-05 10:09
        
        User since
        2005-01-17
        14745 Artikel
        Admin1
        
        Code: (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
        
        $in_filename = 'A.DAT'; if ( open my $in_fh, '<', $in_filename ) { # Datei zum Lesen öffnen if ( open my $out_fh, '>', "$in_filename.out" ) { # Ausgabe-Datei zum Schreiben öffnen while (my $line = <$in_fh> ) { # eine Zeile einlesen $line =~ s/\x0A$//; # \n (LF, hex 0A) entfernen my @felder = split '\|',$line; # |-getrennte Felder aufspalten if ($felder[3] =~ /(\S+)\s/) { # mit Regex alles bis zum Leerzeichen bei Feld 4 einfangen $felder[12] = $1; # gefangenes Feld 13 zuweisen $felder[10] = 200088; # Feld 11 Wert setzen } $line = join '|',@felder; # Zeile wieder zusammenbauen print $out_fh $line, "\x0D"; # geänderte Zeichenkette speichern } } else { die "Kann Datei '$in_filename.out' nicht öffnen/schreiben!"; } } else { die "Kann Datei '$in_filename' nicht öffnen!"; }
        
        Editiert von GwenDragon: neuer Code, Kommentare
        Last edited: 2019-08-05 10:35:43 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +3 replies
        
        NeVe
        
        2019-08-05 10:21
        
        User since
        2019-07-30
        4 Artikel
        BenutzerIn
        
        Für einen ganzen Ordner dann also so:
        
        Code: (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
        
        use strict; use warnings; use diagnostics; my $dir = 'C:\Users\gemuendadm\Desktop\Regex Absatz Test'; opendir (DIR, $dir) or die $!; while (my $file = readdir(dir)) { if ( open my $in_fh, '<', $in_filename ) { # Datei zum Lesen öffnen if ( open my $out_fh, '>', "$in_filename.out" ) { # Ausgabe-Datei zum Schreiben öffnen while (my $line = <$in_fh> ) { # eine Zeile einlesen $line =~ s/\x0A$//; # \n (LF, hex 0A) entfernen print $out_fh $line; # geänderte Zeichenkette speichern } } else { die "Kann Datei '$in_filename.out' nicht öffnen/schreiben!"; } } else { die "Kann Datei '$in_filename' nicht öffnen!"; } }
        
        modedit Editiert von GwenDragon: Vollzitat entfernt
        Last edited: 2019-08-05 11:00:02 +0200 (CEST)
        
        GwenDragon
        
        2019-08-05 11:08
        
        User since
        2005-01-17
        14745 Artikel
        Admin1
        
        Und schau dir meinen geänderten Code msg #190341 nochmals an.
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13
        
        my $dir = 'C:\Users\gemuendadm\Desktop\Regex Absatz Test'; opendir (my $dh, $dir) || die "can't opendir $dir: $!"; while (my $in_filename = readdir($dh)) { if ( $in_filename =~ /^\./ && -f "$dir/$in_filename") { # wenn Dateiname kein . oder .. ist #### hier den Code zum Bearbeiten der Datenzeilen } } closedir $dh || die "can't closedir $dir: $!";
        
        //EDIT: Dateiname korrigiert
        
        Ein bisschen Arbeit muss ich dir ja auch noch zum Lernen überlassen ;)
        Last edited: 2019-08-05 11:25:59 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        GwenDragon
        
        2019-08-09 16:46
        
        User since
        2005-01-17
        14745 Artikel
        Admin1
        
        Und funktioniert es jetzt?
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- GwenDragon
  
  2019-08-05 11:23
  
  User since
  2005-01-17
  14745 Artikel
  Admin1
  
  Verschoben von Raku / Perl 6 nach Allgemeines zu Perl
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2019-07-30 08:03.