replace nth occurence: Code verstehen (Allgemeines zu Perl)

[thread]18196[/thread]

replace nth occurence: Code verstehen

Tags: perl5 Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+17 replies
Student87

2013-03-10 11:04
User since
2012-11-08
73 Artikel
BenutzerIn
Hi,

für diese Aufgabe findet man vielerorts den gleichen Lösungsansatz, aber immer ohne Erklärung und der Threadersteller fragt auch nie weiter nach, deswegen muss ich jetzt selber nen Thread erstellen.

Code zum replacen der n-ten occurence:
Code: (dl )

1 2 3 4

my $repl = 'xyz'; my $n = 2; my $i; $s =~ s/(sneak)/ ++$i == $n ? $repl : $1 /eg;
Code zum replacen der dritten occurence:
Code: (dl )

1 2 3

my $count = 3; my $str = "blublublublublu"; $str =~ s/(lu)/--$count == 0 ? "LA":$1/ge;
Kann mir jemand den Teil am Ende der beiden Codes erklären? Das sieht so kryptisch aus. Beim einen wird inkrementiert, beim anderen dekrementiert und was soll dieses Fragezeichen und geteilt durch eg ?
- bianca
  
  2013-03-10 11:55
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Das e heißt eval und führt Code aus.
  $s =~ s/(sneak)/ ++$i == $n ? $repl : $1 /eg; heißt:
  ersetze durch $repl, wenn das inkrementierte $i == $n ist ansonsten ersetze durch $1.
  Dieses == ? : ist ein verkürztes conditional statement.
  
  Editiert von bianca: extend durch eval ersetzt
  Last edited: 2013-03-10 15:08:31 +0100 (CET)
  10 print "Hallo"
  20 goto 10
- pq
  
  2013-03-10 12:06
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  $s =~ s/(sneak)/ ++$i == $n ? $repl : $1 /eg;
  
  es gibt da kein geteilt durch.
  
  das ist eine substitution:
  s/ ... / ... /eg;
  
  das /eg steht für: e wie eval, und g wie globally.
  eval bedeutet hier, dass die rechte seite der substitution als ersetzungscode angesehen wird, nicht nur als string.
  d.h. der code ++$i == $n ? $repl : $1 wird bei jeder ersetzung ausgeführt.
  
  das mit dem fragezeichen ist eine verkürzung von if/else:
  ++$i == $n ? $repl : $1
  gleich
  if (++$i == $n) { $repl } else { $1 }
  
  lies mal perlop
  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
- Gast wer
  
  2013-03-10 12:27
  Das lässt sich auch anders schreiben:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  
  my $str = "blublublublublu"; my $such='lu'; my $repl='LA'; my $count = 3; my $pos=0; while($count and $pos >= 0) { $pos=index($str,$such,$pos); $count--; } if($pos>0){ substr($str,$pos,length($such),$repl); }
  
  Last edited: 2013-03-10 12:50:27 +0100 (CET)
- +13 replies
- Student87
  
  2013-03-11 11:15
  
  User since
  2012-11-08
  73 Artikel
  BenutzerIn
  
  Ah okay, schonmal viel klarer jetzt, danke.
  
  Ich versteh die Syntax, aber ich würd darüber gern etwas lesen und in meinem "Programming Perl" find ich das nicht. Ich hab auf Seiten für if und für s/// geguckt und auch im Index nach so was ähnlichem wie "abrreviated if". Wo findet man das im Perl-Buch, unter welchem Stichwort?
  
  Und in "perlop" hab ich das gleiche Problem.
  
  EDIT: Okay in der perlop hab ichs gefunden unter "Conditional Operator" :)
  Last edited: 2013-03-11 11:17:31 +0100 (CET)
  - +12 replies
  - Muffi
    
    2013-03-11 11:51
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Das Problem bei übermäßigem Buchlesen ist, dass man zwar alles gelesen, aber das Meiste nicht verstanden hat. Das zweite problem: Man hat das Gefühl man hats verstanden.
    
    Nachdem man mit Buchlesen so halbwegs Plan hat glaub ich lernt man mehr durch Fremdcode angucken.
    
    [EDIT] Und bei dem was man liest im Hinterkopf halten: Magie sparsam einsetzen. Das Beispiel oben wär mir schon an der Grenze zu zuviel.
    Ich hätt wohl:
    
    Code (perl): (dl )
    
    $s =~ s/(sneak)/replace_third($1)/eg;
    
    genommen.
    Last edited: 2013-03-11 11:55:12 +0100 (CET)
    1 + 1 = 10
    - +11 replies
    - Student87
      
      2013-03-11 15:02
      
      User since
      2012-11-08
      73 Artikel
      BenutzerIn
      
      Ist replace_third hier irgendwas funktionelles? Ich hab noch so ein underscore-Schlagwort mit ner bestimmten Funktion gesehen. Für mich sieht das aus, als ob du jeden Match durch den String "replace_third"."$1" ersetzt ?
      - Muffi
        
        2013-03-11 15:06
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Da das "e" hinten ja ein eval ist, ist irgendwas() ein ganz normaler Funktionsaufruf und der returnwert das Ergebnis.
        1 + 1 = 10
      - pq
        
        2013-03-11 15:07
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        Muffi meinte wohl eher, dass er den code aus der ersetzung eher in eine funktion auslagern würde, damit es lesbarer wird. nach wie vor ist replace_third($1) also code, der ausgeführt wird, durch das /e.
        die funktion müsstest du dann noch schreiben.
        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
      - GwenDragon
        
        2013-03-11 15:07
        
        User since
        2005-01-17
        14757 Artikel
        Admin1
        
        Nein, wenn beim Regex hinten der Modifier e dran hängt, wird der Code replace_third($1) ausgeführt.
        Muffi meint hier wohl eine selbst programmierte Funktion names replace_third, welche den eingefangenen Match (sneak), hier nach em Match in $1 befindend, übernimmt.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +7 replies
      - nepos
        
        2013-03-11 15:08
        
        User since
        2005-08-17
        1420 Artikel
        BenutzerIn
        
        Nein, durch das /e wird hier wieder Code ausgefuehrt.
        D.h. wenn der vordere Ausdruck matcht, wird er nicht direkt durch einen String ersetzt, sondern replace_third() mit dem gematchten String als Argument aufgerufen.
        Und das, was replace_third zurueckliefert ist der neue Text, der eingefuegt wird.
        
        +6 replies
        
        Student87
        
        2013-03-13 11:14
        
        User since
        2012-11-08
        73 Artikel
        BenutzerIn
        
        Mit "Funktion" meint ihr "subroutine", oder?
        
        Code: (dl )
        
        1 2 3 4 5 6
        
        my $s =~ s/(sneak)/replace_third($1)/eg; sub replace_third { my $match = shift; my $i; if (++$i == 3) {return "replacement string"} else {return "$match"} }
        
        So ginge es denk ich mal nicht, weil $i immer neu definiert werden würde. Muss ich also alles in die sub verlagern bis auf $i, und $i als extra Variable der sub mit-übergeben?:
        
        Code: (dl )
        
        1 2 3 4 5 6 7
        
        my $i; my $s =~ s/(sneak)/replace_third($1, ++$i)/eg; sub replace_third { my ($match, $i) = @_; if ($i == 3) {return "replacement string"} else {return "$match"} }
        
        Kann man ++$i an eine sub übergeben? Weil wenn ich erst in der sub inkrementiere, wird ja nicht ausserhalb der sub inkrementiert ... ?
        Last edited: 2013-03-13 11:15:09 +0100 (CET)
        
        Linuxer
        
        2013-03-13 11:23
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        2013-03-13T10:14:02 Student87
        Kann man ++$i an eine sub übergeben? Weil wenn ich erst in der sub inkrementiere, wird ja nicht ausserhalb der sub inkrementiert ... ?
        
        Kann man. Und warum sollte es nicht "außerhalb inkrementiert" werden?
        
        Versuch macht kluch ;-)
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
        
        # erster Test $ perl -wle ' my $i=0; sub foo { my $cnt = shift; print "i innen: $cnt\n"; } foo( ++$i ); ' i innen: 1 # zweiter Test $ perl -wle ' my $i=0; sub foo { print "i innen: ", ++$i, "\n"; } foo(); print "i aussen: $i\n"; ' i innen: 1 i aussen: 1
        
        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!
        
        +4 replies
        
        Muffi
        
        2013-03-13 11:28
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Du kannst es entweder übergeben, oder $i über der sub ~~initialisieren~~ definieren
        
        also:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6
        
        my $i = 0; sub foo { $i++; } print "Hier ist auch das i $i";
        
        oder was auch geht ist eine Closure, wenn man das $i nicht global haben will.
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        sub Counter { my $i = 0; return sub { print $i++."\n"; } } my $counter = Counter; $counter->(); $counter->();
        
        Last edited: 2013-03-13 11:51:49 +0100 (CET)
        1 + 1 = 10
        
        Gast wer
        
        2013-03-13 13:53
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12
        
        use feature 'state'; sub foo { state $i++; $i=shift()-1 if @_; return $i; } foo 1; print foo."\n" for 0..9; foo 0; print foo."\n" for 1..5;
        
        +2 replies
        
        GwenDragon
        
        2013-03-13 14:19
        
        User since
        2005-01-17
        14757 Artikel
        Admin1
        
        Zu state (erst ab Perl 5.10) und Closures siehe auch http://thomas-fahle.blogspot.de/2007/12/perl-510-u...
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        Muffi
        
        2013-03-13 14:31
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Ah, mensch. Das hab ich mal vor längerer Zeit überflogen, auf Anhieb nicht ganz verstanden, wollts mir später mal genauer anschaun und habs vergessen.
        
        Aber diesmal tu ichs mir auf die todo-liste.
        1 + 1 = 10

View all threads created 2013-03-10 11:04.