Warum frißt Regex nicht alles? (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2025-02-05 05:40:49
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
1 Gast

[thread]14241[/thread]

submit to reddit

Warum frißt Regex nicht alles?

Leser: 23

Articles: hide open all | hide show old branches

+22 replies
bianca

2009-11-11 11:32
User since
2009-09-13
7016 Artikel
BenutzerIn
Warum frißt dieser Regex nicht alle Blanks am Ende auf?
Code (perl): (dl )

1 2 3

my $foo = 'test '; $foo =~ s/ $//g; print "\$foo = >$foo<\n";
Code: (dl )

$foo = >test <
10 print "Hallo"
20 goto 10
- +21 replies
- Taulmarill
  
  2009-11-11 11:38
  
  User since
  2004-02-19
  1750 Artikel
  BenutzerIn
  
  Warum sollte er? Sobald das "$" gefunden wird ist das Ende des Strings erreicht, da ändert auch /g nichts dran.
  $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
  - +20 replies
  - bianca
    
    2009-11-11 11:40
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Ups, ich wollte mit dem $ bewirken, dass Blanks nur entfernt werden, wenn sie ganz rechts stehen.
    Und /g sollte das ganze wiederholen, solange ein Blank ganz rechts steht.
    
    Wie müsste es dann richtig lauten?
    10 print "Hallo"
    20 goto 10
    - Taulmarill
      
      2009-11-11 11:42
      
      User since
      2004-02-19
      1750 Artikel
      BenutzerIn
      
      Die offensichtliche Lösung wäre einfach s/ +$//, da braucht man dann auch kein /g mehr. Eine unnötig clevere Lösung die mir gerade eingefallen ist sieht so aus: s/ (?= *$)//g
      $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
    - +18 replies
    - renee
      
      2009-11-11 11:43
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Code (perl): (dl )
      
      $foo =~ s/ +$//;
      
      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/
      - bianca
        
        2009-11-11 11:44
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Jau, danke Dir, Brett ist entfernt :)
        10 print "Hallo"
        20 goto 10
      - +16 replies
      - bianca
        
        2009-11-11 11:50
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Und wie kann ich das hier beschleunigen/verkürzen?
        
        Code (perl): (dl )
        
        1 2 3
        
        foreach (my $x = 0; $x < scalar @test; $x ++) { $test[$x] =~ s/ +$//; }
        
        10 print "Hallo"
        20 goto 10
        
        +6 replies
        
        GwenDragon
        
        2009-11-11 12:03
        
        User since
        2005-01-17
        14788 Artikel
        Admin1
        
        Code (perl): (dl )
        
        $test[$_] =~ s/ +$// for 0..@test-1;
        
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +3 replies
        
        bianca
        
        2009-11-11 12:14
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Ist ja auch nur eine Schleife.
        Dachte da an etwas mehr kryptisches perliges vielleicht mit map oder so was.
        
        Trotzdem schonmal danke
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        GwenDragon
        
        2009-11-11 12:27
        
        User since
        2005-01-17
        14788 Artikel
        Admin1
        
        2009-11-11T11:14:21 bianca
        ()…kryptisches perliges vielleicht mit map oder so was.
        
        Code (perl): (dl )
        
        @test = map { s/ +$//; $_ } @test;
        
        //EDIT: Das map ist glaube ich auch öfters schneller als das for. Da gibt es auch einen Artikel in $foo-Magazin dazu.
        Last edited: 2009-11-11 12:29:36 +0100 (CET)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        bianca
        
        2009-11-11 12:29
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Jo geilo, danke Dir :)
        10 print "Hallo"
        20 goto 10
        
        renee
        
        2009-11-11 12:22
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Code (perl): (dl )
        
        $_ =~ s/ +$// for @test;
        
        Warum den Index verwenden, wenn nur das Element gebraucht wird...
        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/
        
        sid burn
        
        2009-11-11 12:49
        
        User since
        2006-03-29
        1520 Artikel
        BenutzerIn
        
        Das könnte man noch so verkürzen
        
        Code (perl): (dl )
        
        s/\s+$// for @test;
        
        Ansonsten habe ich "\s" anstatt ein "Leerzeichen" genommen. Damit werden auch Tabulatoren am ende entfernt.
        
        EDIT:
        Oh sehe gerade das renne schon einen ähnlichen Post geschrieben hatte.
        Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
        
        +9 replies
        
        RPerl
        
        2009-11-11 12:20
        
        User since
        2006-11-26
        384 Artikel
        BenutzerIn
        
        Also mit foreach wuerde ich das eh nicht schreiben, auch wenn es keinen direkten Unterschied macht wuerde ich aus Gruenden der Lesbarkeit und Gewohnheit schon mal gleich for nehmen.
        
        Quote
        Dachte da an etwas mehr kryptisches perliges vielleicht mit map oder so was.
        
        Wieso willst du deinen code absichtlich extra kryptisch schreiben?!
        Gwen's Loesung ist vmtl. der Beste Kompromiss.
        
        Edit: Tippfehler korrigiert.
        Last edited: 2009-11-11 12:25:05 +0100 (CET)
        
        +8 replies
        
        bianca
        
        2009-11-11 12:28
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2009-11-11T11:20:45 RPerl
        Wieso willst du deinen code absichtlich extra kryptisch schreiben?!
        Gwen's Loesung ist vmtl. der Beste Kompromiss.
        
        Ich find das manchmal einfach geil, wenn man den Code bis nah an die Unlesbarkeit verstümmelt. Aber hast natürlich Recht, darum geht es nicht in erster Linie.
        
        Wenn die for Schleife die schnellste Methode ist, bin ich dankbar und mach das so.
        10 print "Hallo"
        20 goto 10
        
        +7 replies
        
        RPerl
        
        2009-11-11 12:34
        
        User since
        2006-11-26
        384 Artikel
        BenutzerIn
        
        2009-11-11T11:28:27 bianca
        2009-11-11T11:20:45 RPerl
        Wieso willst du deinen code absichtlich extra kryptisch schreiben?!
        Gwen's Loesung ist vmtl. der Beste Kompromiss.
        
        Ich find das manchmal einfach geil, wenn man den Code bis nah an die Unlesbarkeit verstümmelt. Aber hast natürlich Recht, darum geht es nicht in erster Linie.
        
        Das stimmt. Mit Perl hat man soviele Moeglichkeiten seinen code zu schreiben.
        Und dann kommen zwangslaeufig gut lesbare und weniger gut lesbare Ergebnisse raus. :)
        
        Quote
        Wenn die for Schleife die schnellste Methode ist, bin ich dankbar und mach das so.
        
        Ob das jetzt der flotteste code ist hab ich nicht behauptet.
        Ich sage nur, dass Gwen's erste Loesung vmtl. ein guter Kompromiss zwischen Wartbarkeit, Lesbarkeit und Schnelligkeit ist.
        
        Ohne das jetzt gebenchmarked zu haben tippe ich mal drauf das die map Loesung am schnellsten ist.
        
        +6 replies
        
        Taulmarill
        
        2009-11-11 13:06
        
        User since
        2004-02-19
        1750 Artikel
        BenutzerIn
        
        Hm... so auf den ersten Blick würde ich mal schätzen, dass
        
        Code (perl): (dl )
        
        1 2 3
        
        for my $element ( @array ) { $element =~ s/ +$//; }
        
        schneller sein dürfte als
        
        Code (perl): (dl )
        
        @array = map{ s/ +$// } @array;
        
        Da map eine temporäre Kopie des Arrays anlegt während bei for in place geändert wird. Der Unterschied dürfte aber minimal sein. Für große Arrays sollte man einfach im Hinterkopf behalten, dass bei der map-Lösung entsprechend viel Arbeitsspeicher gebraucht wird.
        
        edit:
        
        Hier mal ein Benchmark:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
        
        use strict; use warnings; use Benchmark qw(:all); my $n = $ARGV[0]; die "$n NaN" if $n ne int $n or $n <= 0; our @for = ("test ") x $n; our @map = @for; cmpthese ( $n, { 'for' => 's/ +$// for @for;', 'map' => '@map = map{ s/ +$//; $_ } @map;', } );
        
        Ergebnis:
        
        Code: (dl )
        
        1 2 3 4
        
        $ perl test.pl 1000 Rate map for map 239/s -- -85% for 1587/s 563% --
        
        Last edited: 2009-11-11 13:23:40 +0100 (CET)
        $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
        
        +5 replies
        
        bianca
        
        2009-11-11 14:07
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Kann gerade mit der Ergebnisausgabe nichts anfangen.
        
        Was ist jetzt schneller?
        10 print "Hallo"
        20 goto 10
        
        +3 replies
        
        RPerl
        
        2009-11-11 14:10
        
        User since
        2006-11-26
        384 Artikel
        BenutzerIn
        
        2009-11-11T13:07:53 bianca
        Kann gerade mit der Ergebnisausgabe nichts anfangen.
        
        Was ist jetzt schneller?
        
        die for schleife. leider *grml* :)
        
        Aber man muss dazu sagen das man das eigentlich so nicht
        vergleichen kann, weil map nicht im void kontext steht.
        (danke an moritz :))
        
        +2 replies
        
        renee
        
        2009-11-11 14:11
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        2009-11-11T13:10:04 RPerl
        weil map nicht im void kontext steht.
        (danke an moritz :))
        
        <persönlicheMeinung>map im void Kontext finde ich fürchterlich</persönlicheMeinung>
        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/
        
        betterworld
        
        2009-11-11 17:46
        
        User since
        2003-08-21
        2614 Artikel
        ModeratorIn
        
        2009-11-11T13:11:51 renee
        
        <persönlicheMeinung>map im void Kontext finde ich fürchterlich</persönlicheMeinung>
        
        OK, das kann man so sehen, aber ich finde diesen Code:
        
        Code (perl): (dl )
        
        @map = map{ s/ +$//; $_ } @map;
        
        redundant, weil das "map" hier eh die Elemente selbst verändert, daher ist der Rückgabewert ziemlich egal, und man kann ihn ignorieren:
        
        Code (perl): (dl )
        
        map{ s/ +$//; $_ } @map;
        
        Und dann braucht man natürlich das "; $_" auch nicht mehr:
        
        Code (perl): (dl )
        
        map s/ +$//, @map;
        
        So, und nachdem man die Redundanz entfernt hat, kommt nun etwas raus, was so ziemlich wie die entsprechende "for"-Schleife (als Statement-Modifier) aussieht. Ausser dass das jetzt "etwas mehr kryptisches perliges vielleicht mit map oder so was" ist, sehe ich hier keinen Grund, stattdessen einfach "for" zu benutzen:
        
        Code (perl): (dl )
        
        s/ +$// for @map;
        
        Ach ja, und dann ersetzen wir bitte noch "$" durch "\z", falls wir den Unterschied nicht kennen. Siehe Was bedeutet $ wirklich?
        Lieblingsmodule: IPC::System::Simple, Path::Class
        
        renee
        
        2009-11-11 14:10
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        for ist schneller. Die Rate gibt an, wie of die Operation pro Sekunde durchgeführt wird. Je höher dieser Wert, desto schneller...
        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/

View all threads created 2009-11-11 11:32.