String in String einfügen (Allgemeines zu Perl)

[thread]20020[/thread]

String in String einfügen

Tags: perl5 string einfügen Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+8 replies
samuelk

2016-03-16 17:05
User since
2016-03-16
9 Artikel
BenutzerIn
Hallo zusammen :)

Kurze Frage:
ich habe 2 Strings und will den zweiten in den ersten einfügen.
Code (perl): (dl )

1 2

$string1 = "<>randomtext<>blablabla<-<->>-bla" $string2 = "ABCD"
Ich will den 2. string vor dem zweiten < einfügen.
Also:
Code (perl): (dl )

$string1 = "<>randomtextABCD<>blablabla<-<->>-bla"
Wie mache ich das??

Viellleeen Dank :)

modedit Editiert von pq: code-tags hinzugefügt
Last edited: 2016-03-16 17:07:26 +0100 (CET)
- +7 replies
- GwenDragon
  
  2016-03-16 17:40
  User since
  2005-01-17
  14533 Artikel
  Admin1
  Code (perl): (dl )
  
  1 2 3
  
  my $string1 = "<>randomtext<>blablabla<-<->>-bla"; my $string2 = "ABCD"; $string1 =~ s|(<>[^<]+)|$1${string2}|; # Ersetze in $string1 das Suchmuster durch das gefundene, also $1, und string2
  
  Ich weiß ja nicht welche Zeichenketten sonst noch bei dir benutzt werden oder ob meine die richtige/gewünschte Lösung nur für diesen Fall ist.
  Last edited: 2016-03-16 17:44:34 +0100 (CET)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +6 replies
  - samuelk
    
    2016-03-16 17:57
    User since
    2016-03-16
    9 Artikel
    BenutzerIn
    
    Die zeilen sehen immer so aus:
    
    Code: (dl )
    
    <VT>irgendeintext</VT>
    
    also
    
    Code: (dl )
    
    <VT>
    
    und
    
    Code: (dl )
    
    </VT>
    
    bleiben immer gleich
    Last edited: 2016-03-16 17:58:38 +0100 (CET)
    - +5 replies
    - GwenDragon
      
      2016-03-16 18:08
      
      User since
      2005-01-17
      14533 Artikel
      Admin1
      
      Dann sollte die Ersetzung so korrekt sein:
      
      Code (perl): (dl )
      
      $string1 =~ s|(<VT>[^<]+)|$1${string2}|;
      
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
      - +4 replies
      - MarkusH
        
        2016-03-16 18:30
        
        User since
        2012-04-08
        161 Artikel
        BenutzerIn
        
        Nein, denn der OP möchte String2 davor einfügen.
        
        Code (perl): (dl )
        
        $string1 =~ s/(<VT>)(.+)/$1${string2}$2/i;
        
        $q =~ /(bb|[^b]{2})/
        
        +3 replies
        
        Linuxer
        
        2016-03-16 22:06
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        Ich denke, GwenDragons Variante war da schon korrekt. samuelk schrieb: "vor dem zweiten <" einfügen.
        
        Deines fügt bereits nach dem ersten "<VT>" ein. Damit wird es vor dem eigentlichen Inhalt zwischen <VT> und </VT> eingefügt und nicht "vor dem zweiten <"; jedenfalls solange da ein Inhalt steht...
        
        Vergleiche:
        
        Code: (dl )
        
        1 2 3 4 5 6 7
        
        # GwenDragon $ perl -E '$s = "<VT>BLA</VT>"; $s =~ s|(<VT>[^<]+)|${1}string2|; say $s' <VT>BLAstring2</VT> # MarkusH $ perl -E '$s = "<VT>BLA</VT>"; $s =~ s/(<VT>)(.+)/${1}string2${2}/i; say $s' <VT>string2BLA</VT>
        
        edit: 1. s/Er/samuelk/; 2. fixed typo.
        Last edited: 2016-03-16 22:17:28 +0100 (CET)
        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!
        
        +2 replies
        
        MarkusH
        
        2016-03-17 00:01
        
        User since
        2012-04-08
        161 Artikel
        BenutzerIn
        
        Ja, ihr habt recht.
        Ich nnehme meine Aussage zurück.
        Die Lösung von GwenDragon ist richtig!
        
        Wer lesen kann ist halt klar im Vorteil!
        $q =~ /(bb|[^b]{2})/
        
        samuelk
        
        2016-03-17 10:58
        
        User since
        2016-03-16
        9 Artikel
        BenutzerIn
        
        Vielen Dank :)
        Hat funktioniert.
        
        Ich hatte es anders gelöst (mit split und wieder zusammenfügen), aber diese lösung ist auf jeden Fall schöner und besser

View all threads created 2016-03-16 17:05.