Suchen und ersetzen n. Element (gelöst) (Allgemeines zu Perl)

[thread]18891[/thread]

Suchen und ersetzen n. Element [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+6 replies
Gast Enrico

2014-02-05 12:27
Hallo,

ich möchte das n. Element ersetzen sofern es existiert. Habt ihr eine Idee?
Code: (dl )

$beschr1 =~s/ $titel / $titel_ersetzen /;
Last edited: 2014-02-05 12:42:38 +0100 (CET)
- +5 replies
- Muffi
  
  2014-02-05 12:52
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  Was ist denn ein n. Element?
  Das n. Vorkommen von Titel?
  1 + 1 = 10
  - +4 replies
  - Gast Enrico
    
    2014-02-05 12:55
    
    Ja genau.
    Last edited: 2014-02-05 13:12:15 +0100 (CET)
    - +3 replies
    - Muffi
      
      2014-02-05 13:19
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Code (perl): (dl )
      
      1 2 3 4 5 6
      
      my $str = 'das ist das haus und das ist aus'; my $n_element = 2; my $titel = 'das'; my $titel_ersetzen = 'was anderes'; $str =~ s/($titel)/--$n_element ? $1 : $titel_ersetzen/ge; print $str;
      
      Evtl. den Modifier "e" bei Regex nachlesen.
      1 + 1 = 10
      - +2 replies
      - payx
        
        2014-02-05 18:00
        
        User since
        2006-05-04
        564 Artikel
        BenutzerIn
        
        Sehr cool diese Lösung, da wäre ich nicht darauf gekommen.
        
        Hier nur so noch eine (weniger geniale aber vielleicht einfachere) Alternativlösung mit nur-Regex (ersetze Muffis Zeile 5):
        
        Code (perl): (dl )
        
        1 2
        
        my $pos = $n_element-1; $str =~ s/(($titel.*?){$pos})$titel/$1$titel_ersetzen/;
        
        Grüße
        payx
        
        Editiert von payx: 1 Zeile Schrott gelöscht, pardon
        Last edited: 2014-02-05 18:27:53 +0100 (CET)
        
        Gast Enrico
        
        2014-02-07 12:49
        
        Vielen Dank euch - funzt beides
        Last edited: 2014-02-07 12:52:42 +0100 (CET)

View all threads created 2014-02-05 12:27.