Opened by NeVe at 2019-07-30 08:03
User since
2015-01-07
527 Artikel
BenutzerIn
2015-01-07
527 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";