Nur jedes zweite Zeichen übrig lassen? (Allgemeines zu Perl)

[thread]14563[/thread]

Nur jedes zweite Zeichen übrig lassen?

Leser: 25

Articles: hide open all | hide show old branches

+12 replies
Brenner

2010-01-29 13:57

User since
2009-01-13
87 Artikel
BenutzerIn

Wie kann ich von einem String nur jedes zweite Zeichen rauscutten?

Beispiel:
Vorher:

AabBccDD

Nachher:
aBcD
- +11 replies
- pq
  
  2010-01-29 13:59
  User since
  2003-08-04
  12208 Artikel
  Admin1
  Code (perl): (dl )
  
  $string =~ s/(.)./$1/g;
  
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +4 replies
  - havi
    
    2010-01-29 14:21
    User since
    2003-08-04
    2036 Artikel
    BenutzerIn
    
    2010-01-29T12:59:26 pq
    
    Code (perl): (dl )
    
    $string =~ s/(.)./$1/g;
    
    andersrum:
    
    Code (perl): (dl )
    
    $string =~ s/.(.)/$1/g;
    
    Perl-Zeitung - http://perl-zeitung.at/
    Perl-Blog - http://usr-bin-perl.blogspot.com/
    - +2 replies
    - GwenDragon
      
      2010-01-29 14:27
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      pqs Code ist schon richtig, wenn rauscutten bedeutet: das zweite Zeichen aus der Zeichenkette löschen.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - havi
        
        2010-01-29 14:28
        
        User since
        2003-08-04
        2036 Artikel
        BenutzerIn
        
        2010-01-29T13:27:26 GwenDragon
        pqs Code ist schon richtig, wenn rauscutten bedeutet: das zweite Zeichen aus der Zeichenkette löschen.
        
        Richtig, aber nicht wenn ich mir das "vorher" "nachher" von Brenner anschaue...
        Perl-Zeitung - http://perl-zeitung.at/
        Perl-Blog - http://usr-bin-perl.blogspot.com/
    - Linuxer
      
      2010-01-29 14:27
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Das war doch als Übung für Brenner gedacht ;o))
      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!
  - +6 replies
  - Brenner
    
    2010-02-01 07:38
    
    User since
    2009-01-13
    87 Artikel
    BenutzerIn
    
    Danke,
    
    hat wundebar funktioniert, jetzt würde ich nur noch gerne wissen warum.
    
    /g = Alles durchsuchen, bzw. nicht beim ersten Fund aufhören
    
    (.)./$1 = ?
    Den kapier ich selbst mit suche noch nicht wirklich auch wenn ich weiß was raus kommt.
    - +5 replies
    - nepos
      
      2010-02-01 07:59
      
      User since
      2005-08-17
      1420 Artikel
      BenutzerIn
      
      Das ist eigentlich recht einfach:
      
      Code (perl): (dl )
      
      $string =~ s/(.)./$1/g;
      
      Mit s/// wird eine Ersetzung gemacht. Dabei werden immer 2 Zeichen gemachted ((.).). Die runden Klammern um den ersten Punkt bedeuten "pack das passende Zeichen nach $1". Ja und dann werden die beiden gematchten Zeichen einfach durch $1 ersetzt und das ganze für die gesamte Zeile.
      - +4 replies
      - Brenner
        
        2010-02-01 08:12
        
        User since
        2009-01-13
        87 Artikel
        BenutzerIn
        
        Puhh,
        
        ok, wäre ich so nie drauf gekommen.
        
        Würde dann auch .(.) gehen, so das immer jedes zweite Zeichen genommen wird oder ..(.) für das dritte Zeichen?
        
        +3 replies
        
        havi
        
        2010-02-01 09:10
        
        User since
        2003-08-04
        2036 Artikel
        BenutzerIn
        
        2010-02-01T07:12:08 Brenner
        Puhh,
        
        ok, wäre ich so nie drauf gekommen.
        
        Würde dann auch .(.) gehen, so das immer jedes zweite Zeichen genommen wird oder ..(.) für das dritte Zeichen?
        
        Ne, weil . gierig ist und sich alles nimmt was es bekommen kann ;)...
        
        $string =~ s/.{2}(.)/$1/g;
        
        .{2} immer zwei Zeichen
        Perl-Zeitung - http://perl-zeitung.at/
        Perl-Blog - http://usr-bin-perl.blogspot.com/
        
        +2 replies
        
        renee
        
        2010-02-01 09:18
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Nee, . ist nicht gierig. Das nimmt immer genau ein Zeichen. .* wäre gierig.
        
        .{2} ist äquivalent zu ..
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
        
        havi
        
        2010-02-01 10:25
        
        User since
        2003-08-04
        2036 Artikel
        BenutzerIn
        
        2010-02-01T08:18:59 renee
        Nee, . ist nicht gierig. Das nimmt immer genau ein Zeichen. .* wäre gierig.
        
        .{2} ist äquivalent zu ..
        
        Korrekt... puh, ich sollte besser aufpassen ;)
        Perl-Zeitung - http://perl-zeitung.at/
        Perl-Blog - http://usr-bin-perl.blogspot.com/

View all threads created 2010-01-29 13:57.