Vergleich Regexmatch <-> Smartmatch auf Array (Allgemeines zu Perl)

[thread]18249[/thread]

Vergleich Regexmatch <-> Smartmatch auf Array

Tags: perl5 regex Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

Teilbaum:
Vergleich Regexmatch <-> Smartmatch auf Array (4 Artikel) 2013-04-03 12:50

+5 replies
GwenDragon

2013-04-03 10:53
User since
2005-01-17
14563 Artikel
Admin1
Ein Regex oder ein Smartmatch auf anonymes Array, mit den Werten einer Liste.
Welchen Vorteil soll denn das letztere haben?
Nur die andere Schreibweise?

Ich bin mir nicht sicher, aber der Smartmatch mit dem Array alloziert unnötig Speicher. Kann auch sein, dass es nicht stimmt.
Vielleicht weiß jemand mehr dazu.

//EDIT2:
Code: (dl )

1 2 3 4

C:\>perl -MDevel::Size -E"print Devel::Size::total_size([0..9])" 240 C:\>perl -MDevel::Size -E"print Devel::Size::total_size(qr{^\d$})" 88
Das Array verbraucht also mehr Speicher.

//EDIT:
Selbst rausgefunden.
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12

C:\>perl -MO=Concise -E"print '1' ~~ [0..9]" b <@> leave[1 ref] vKP/REFC ->(end) 1 <0> enter ->2 2 <;> nextstate(main 46 -e:1) v:%,{ ->3 a <@> print vK ->b 3 <0> pushmark s ->4 9 <2> smartmatch sK/2 ->a 4 <$> const[PV "1"] s ->5 8 <@> anonlist sK*/1 ->9 5 <0> pushmark s ->6 7 <1> rv2av lKP/1 ->8 6 <$> const[AV ] s ->7
Code: (dl )

1 2 3 4 5 6 7 8

C:\>perl -MO=Concise -E"print '1' =~ /^\d$/" 7 <@> leave[1 ref] vKP/REFC ->(end) 1 <0> enter ->2 2 <;> nextstate(main 46 -e:1) v:%,{ ->3 6 <@> print vK ->7 3 <0> pushmark s ->4 5 </> match(/"^\\d$"/) lKS/RTIME ->6 4 <$> const[PV "1"] s ->5
Und der Benchmak zeigt den Vorteil des Regex:
Code: (dl )

1 2 3 4 5 6 7 8

C:\>perl -MBenchmark -E"Benchmark::cmpthese(1000000, { 'Regex'=>sub {print '1' =~ /^\d$/}, 'Liste'=>sub{p rint '1' ~~ [0..9]} })" 111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111 ... 111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111 11111111111111111111111111111111111111111111111111111111111111111111111111111111 Rate Liste Regex Liste 436110/s -- -71% Regex 1490313/s 242% --
Last edited: 2013-04-03 11:28:00 +0200 (CEST)
die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +4 replies
- Muffi
  
  2013-04-03 11:28
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  Für mich kommt beim smart match der character-charakter (komisches Wort) von $a schneller rüber.
  1 + 1 = 10
  - +3 replies
  - GwenDragon
    
    2013-04-03 11:38
    User since
    2005-01-17
    14563 Artikel
    Admin1
    
    Und das hier hat nicht diese Characteranmutung?
    
    Code: (dl )
    
    $a ~~ qr(^\d$);
    
    Ich meinte bei meiner Frage an dich: warum das anonyme Array statt des Regex?
    die Drachin, Gwendolyn
    
    Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
    - +2 replies
    - Muffi
      
      2013-04-03 11:49
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Hmm. Das ist, ohne es genauer zu lesen, erstmal nur ne Regex auf irgendwas.
      Der smart match ist halt auch zu anderen Sprachen syntaktisch näher an einer Char-range.
      
      Code (pascal): (dl )
      
      if myChar in ['0'..'9']
      
      Evtl. könnt man auch in Perl noch die Anführungszeichen rumsetzen, dann wirds noch klarer, dass ein Char eingelesen wurde.
      Last edited: 2013-04-03 11:52:10 +0200 (CEST)
      1 + 1 = 10
      - GwenDragon
        
        2013-04-03 12:50
        
        User since
        2005-01-17
        14563 Artikel
        Admin1
        
        2013-04-03T09:49:56 Muffi
        Der smart match ist halt auch zu anderen Sprachen syntaktisch näher an einer Char-range.
        
        Code (pascal): (dl )
        
        if myChar in ['0'..'9']
        
        Ah, jetzt verstehe ich was du meinst.
        
        Ja, für Leute die von anderern Sprachen kommem ist sowas wie
        
        Code: (dl )
        
        $line ~~ [0..9];
        
        besser zu verstehen.
        Ist Anfängerfreundlicher.
        
        Solange nix zeit- und speicherintesives passiert mag das auch schön sein. Aber manchmal ... Wer benutzt schon Perl auf Embedded Systems ;)
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

View all threads created 2013-04-03 09:45.