String mehrfach per regex verändern (Allgemeines zu Perl)

[thread]17277[/thread]

String mehrfach per regex verändern

Tags: perl5 Ähnliche Threads

Leser: 23

Articles: hide open all | hide show old branches

+7 replies
Gast Hans

2012-03-29 10:40

Hallo,

ich habe foldende Zeile:
"Peter 22 und der Wolf 12 haben sich um 18 Uhr getroffen"
daraus soll werden:
"Peter 23 und der Wolf 12 haben sich um 19 Uhr getroffen"
Also alle Zahlen > 15 um eins erhöhen.

Wie mache ich das am besten in perl. Wie ich es in C++ machen würde
weiss ich (den String Zeichen für Zeichen abarbeiten). Aber das wäre
glaube ich nicht sehr effektiv in Perl.

Danke im Voraus.
Last edited: 2012-03-29 10:49:16 +0200 (CEST)
- +6 replies
- Gast wer
  
  2012-03-29 10:59
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  #!/usr/bin/perl use strict; use warnings; my $str="Peter 22 und der Wolf 12 haben sich um 18 Uhr getroffen"; my $limit=15; $str=~s/(\d+)/$1>$limit?$1+1:$1/egs; print $str;
  
  Last edited: 2012-03-29 11:02:29 +0200 (CEST)
  - hop
    
    2012-03-29 12:03
    
    User since
    2012-03-29
    15 Artikel
    BenutzerIn
    
    Danke, funktioniert!
    Last edited: 2012-03-29 12:21:42 +0200 (CEST)
  - +4 replies
  - hlubenow
    
    2012-03-30 17:34
    User since
    2009-02-22
    875 Artikel
    BenutzerIn
    
    Die RegEx ist sicher sehr gut. Aber auch nicht ganz leicht zu verstehen.
    Hier nochmal ein Vorschlag mit split() (der vielleicht etwas näher an dem wäre, was man in C++ machen würde (wenn man dort Listen hätte ;) ) ):
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
    
    #!/usr/bin/perl use strict; use warnings; my $str="Peter 22 und der Wolf 12 haben sich um 18 Uhr getroffen"; my $limit=15; my $i; my @a = split(" ", $str); for ($i=0; $i<=$#a; $i++) { if ($a[$i] !~ /\D/ && $a[$i] > 15) { $a[$i]++; } } $str = join(" ", @a); print "$str\n";
    - +3 replies
    - FIFO
      
      2012-03-30 18:22
      
      User since
      2005-06-01
      469 Artikel
      BenutzerIn
      
      2012-03-30T15:34:12 hlubenow
      
      Code (perl): (dl )
      
      my @a = split(" ", $str);
      
      Das verändert aber den String, wenn mehrere Leerzeichen aufeinander folgen. Besser split(/ /, $str);.
      Und das schöne am Iterieren über arrays in Perl ist ja das Alias-Verhalten der Schleifenvariable:
      
      Code (perl): (dl )
      
      1 2 3 4 5
      
      for my $elem (@a) { if ($elem =~ m{\A \d+ \z}x && $elem > 15) { $elem++; } }
      
      ... finde ich lesbarer als die Index-Variante.
      
      Gruß FIFO
      Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
      - pq
        
        2012-03-30 18:27
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        $elem =~ m{\A \d+ \z}x könnte man dann noch einfacher machen:
        
        $elem !~ tr/0-9//c
        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
      - hlubenow
        
        2012-03-30 18:48
        
        User since
        2009-02-22
        875 Artikel
        BenutzerIn
        
        Ah, gute Tipps. Kannte ich noch nicht. Danke!

View all threads created 2012-03-29 10:40.