Umreihungen (Allgemeines zu Perl)

[thread]13411[/thread]

Umreihungen

Leser: 19

Articles: hide open all | hide show old branches

+5 replies
waldviertler

2009-04-19 17:26
User since
2009-04-19
3 Artikel
BenutzerIn
Hallo!

Bitte könntet ihr mir bei folgenden Problem helfen, ich versuche seit Stunden auf eine Lösung zu kommen:

Es soll mit suchen/ersetzen eine Umreihung vorgenommen werden und zwar
jeweils der Text zwischen <Texteinmischdefinitionen> und </Texteinmischdefinitionen>

VOR
das davorkommende <Kursstamm> gereiht werden.

Mein Versuch
Code: (dl )

s/(<Kursstamm>.+?)(<Texteinmischdefinitionen>\n.+?<\/Texteinmischdefinitionen>\n)/$2$1/gs;
schlägt leider fehl.

Bei meinem Textbeispiel wird so das erste Vorkommen von :<Texteinmischdefinitionen> und </Texteinmischdefinitionen> vor das allererste vorkommen von <Kursstamm> gereiht, das darf aber nicht sein.

<Kursstamm>1
blabla1
blabla2
blabla3
blabla4
<Kursstamm>2
blabla1
blabla2
blabla3
blabla4
<Kursstamm>3
blabla1
blabla2
blabla3
blabla4
<Kursstamm>4
blabla1
blabla2
blabla3
blabla4
<Texteinmischdefinitionen>
1
</Texteinmischdefinitionen>
<Kursstamm>5
blabla1
blabla2
blabla3
blabla4
<Kursstamm>6
blabla1
blabla2
blabla3
blabla4
<Kursstamm>7
blabla1
<Texteinmischdefinitionen>
2
</Texteinmischdefinitionen>

Was mach ich falsch?

Besten Dank
Martin
- +4 replies
- Linuxer
  
  2009-04-19 18:27
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Hi,
  
  hier mein Vorschlag. Beachte das gierige Pattern vorm Kursstamm....
  
  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 49 50 51 52 53 54 55
  
  #!/usr/bin/perl # vi:ts=4 sw=4 et: use strict; use warnings; { # jeder block ende mit folgendem string local $/ = "</Texteinmischdefinitionen>\n"; # lese blockweise ein while ( my $block = <DATA> ) { $block =~ s{(.+)(<Kursstamm>.+?)(<Texteinmischdefinitionen>.+</Texteinmischdefinitionen>\n)$}{$1$3$2}gsm; print $block; } } __DATA__ <Kursstamm>1 blabla1 blabla2 blabla3 blabla4 <Kursstamm>2 blabla1 blabla2 blabla3 blabla4 <Kursstamm>3 blabla1 blabla2 blabla3 blabla4 <Kursstamm>4 blabla1 blabla2 blabla3 blabla4 <Texteinmischdefinitionen> 1 </Texteinmischdefinitionen> <Kursstamm>5 blabla1 blabla2 blabla3 blabla4 <Kursstamm>6 blabla1 blabla2 blabla3 blabla4 <Kursstamm>7 blabla1 <Texteinmischdefinitionen> 2 </Texteinmischdefinitionen>
  
  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!
  - +3 replies
  - waldviertler
    
    2009-04-19 18:41
    
    User since
    2009-04-19
    3 Artikel
    BenutzerIn
    
    Hi Linuxuser
    
    Vielen Dank für Deine Antwort.
    
    Das hab ich ausprobiert, beim ersten Vorkommen von <Texteinmischdefinitionen> wird ganz richtig der Block vor <Kursstamm>4 gereiht.
    Aber beim 2. Vorkommen wird der Block nicht vor <Kursstamm>7 gereiht.
    
    lg
    Martin
    - +2 replies
    - Linuxer
      
      2009-04-19 18:45
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      2009-04-19T16:41:35 waldviertler
      Hi Linuxuser
      
      Linuxer reicht ;o))
      
      2009-04-19T16:41:35 waldviertler
      Aber beim 2. Vorkommen wird der Block nicht vor <Kursstamm>7 gereiht.
      
      Was passiert denn stattdessen?
      Ich weiss auch nicht, was Du nun getan hast.
      Hast Du meinen Code ausgeführt?
      Hast Du ihn in Deinen Code eingebaut?
      Wie soll ich das erraten?
      Bei mir schaut das Ergebnis gut aus, wenn ich Deine Anforderungen richtig verstanden habe:
      
      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 30 31 32 33 34 35 36 37 38
      
      <Kursstamm>1 blabla1 blabla2 blabla3 blabla4 <Kursstamm>2 blabla1 blabla2 blabla3 blabla4 <Kursstamm>3 blabla1 blabla2 blabla3 blabla4 <Texteinmischdefinitionen> 1 </Texteinmischdefinitionen> <Kursstamm>4 blabla1 blabla2 blabla3 blabla4 <Kursstamm>5 blabla1 blabla2 blabla3 blabla4 <Kursstamm>6 blabla1 blabla2 blabla3 blabla4 <Texteinmischdefinitionen> 2 </Texteinmischdefinitionen> <Kursstamm>7 blabla1
      
      edit: Fragenkatalog erweitert.
      
      Last edited: 2009-04-19 18:47:51 +0200 (CEST)
      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!
      - waldviertler
        
        2009-04-19 19:25
        
        User since
        2009-04-19
        3 Artikel
        BenutzerIn
        
        Hallo Linuxer (Tschuldigung hab nicht genau geschaut)
        
        Ich hatte nach den letzten </Texteinmischdefinitionen> kein Return.
        
        Deshalb ging es nicht.
        
        Vielen Dank!
        
        Martin

View all threads created 2009-04-19 17:26.