Code-Optimierung (Allgemeines zu Perl)

[thread]14480[/thread]

Code-Optimierung

Leser: 24

Articles: hide open all | hide show old branches

+5 replies
jan999

2010-01-12 09:02
User since
2009-04-02
109 Artikel
BenutzerIn
Moin!

da ich ja noch Einsteiger bin und dazu lernem möchte hier eine Optimierungsfrage zu einer Funktion von mir.

Ich habe wiederkehrend Strings bei dem der erste Buchstabe ein n,w oder r ist und dann eine Zahlenkette.

Beispiel: n12387248974294

Für den weiteren Verlauf bräuchte ich den ersten Buchstaben und die Zahlen getrennt - wobei die Buchstaben wie folgt in Worte umgesetzt werden:

Quote
n => node
w => way
r => relation

Hier nun meine Funktion:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

sub splitTypeId { my $argument = shift ; my $type = ""; if ($argument =~ /^n/){ $type = "node"; }elsif ($argument =~ /^w/){ $type = "node"; }else{ $type = "relation"; } my $id = substr($argument,1); my $result = $type.";".$id; return $result; }
die im aufrufenden Teil wie folgt integriert wird:
Code (perl): (dl )

my($poi_type, $purge_id) = split( /;/, splitTypeId($unnamed_id), 2 );
Geht es auch einfacher ???

Gruß jan :-)
- +4 replies
- Taulmarill
  
  2010-01-12 09:31
  User since
  2004-02-19
  1750 Artikel
  BenutzerIn
  Ich würde den String einfach per RegEx zerlegen, etwa so:
  
  Code (perl): (dl )
  
  my( $type, $id ) = $argument =~ /(\w)(\d+)/;
  
  Dabei steht \w für ein "word character", also einen Buchstaben, und \d für ein "decimal", also eine Ziffer.
  Last edited: 2010-01-12 09:33:41 +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
  - +3 replies
  - renee
    
    2010-01-12 09:51
    User since
    2003-08-04
    14371 Artikel
    ModeratorIn
    
    Ich würde noch \A und \z einsetzen. Und für "Klartext" Darstellung des Typs einen Hash verwenden:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
    
    sub splitTypeId { my ($arg) = @_; my ($type,$id) = m/ \A (\w) (\d+) \z /x; my %map = ( n => 'node', w => 'way', r => 'relation', ); $type = $map{$type} || ''; return ($type, $id); }
    
    Und dann bei der Verwendung nicht das split-Kostrukt, sondern
    
    Code (perl): (dl )
    
    my($poi_type, $purge_id) = splitTypeId($unnamed_id);
    
    Last edited: 2010-01-12 09:53:03 +0100 (CET)
    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/
    - +2 replies
    - sid burn
      
      2010-01-12 10:36
      
      User since
      2006-03-29
      1520 Artikel
      BenutzerIn
      
      Ich würde es nahezu identisch machen wie renees Lösung. Nur mit den kleinen unterschied das ich beim $type nicht ein Leerstring zurück geben würde sondern mit croak() abbrechen würde.
      
      Nebenbei hat renee einen kleinen Fehler seine Regex arbeitet auf $_ er hat vergessen es auf $arg auszuführen.
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
      
      use Carp qw(croak); # use namespace::clean; # <-- Das nur wenn du ein OOP Modul hast sub splitTypeId { my ( $arg ) = @_; my ( $type, $id ) = $arg =~ m/ \A (\w) (\d+) \z /xms; my %map = ( n => 'node', w => 'way', r => 'relation', ); $type = $map{$type} || croak "Invalid Type ($type) is ($arg) a correct string for splitTypeId() ?\n"; return $type, $id; }
      
      Ansonsten anstatt einer Regex könnte man hier auch unpack verwenden um den String aufzuteilen.
      
      Code (perl): (dl )
      
      my ( $type, $nmr ) = unpack 'A A*', $arg;
      
      EDIT:
      Ab Perl 5.10 könnte man rein Theoretisch auch das "state" Statement nutzen für den Hash.
      
      Code (perl): (dl )
      
      state %map = ( ... );
      
      "state" macht dann folgendes das es den Hash nicht immer wieder neu initialisiert, dass heißt die Variable wird nicht mit jedem aufruf neu generiert sondern besteht über die aufrufe hinweg, vergleichbar zu einem Closure (so müsste man es mit Perl < 5.10.0 machen). Rein theoretisch sollte das Performanter sein. Aber solche sinnlosen sachen Benchmarke ich eh nicht, das können andere machen. ;)
      
      EDIT2:
      Mir fällt gerade ein. Mit einer Regex würde ich ebenfalls noch testen ob die Regex überhaupt erfolgreich war, und wenn nicht ebenfalls croaken. Sonst kannst du irgendein mist übergeben oder du übergibst ausversehen eben "mist" und merkst es nicht auser durch ein haufen von "undef" warnings.
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
      
      sub splitTypeId { my ( $arg ) = @_; my ( $type, $id ); if ( $arg =~ m/ \A (\w) (\d+) \z /xms ) { $type = $1; $id = $2; } else { croak "Invalid format ($arg)\n"; } state %map = ( n => 'node', w => 'way', r => 'relation', ); if ( !exists $map{$type} ) { croak "Type ($type) is invalid\n"; } return $map{$type}, $id; }
      
      Last edited: 2010-01-12 10:58:51 +0100 (CET)
      Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
      - jan999
        
        2010-01-12 11:07
        
        User since
        2009-04-02
        109 Artikel
        BenutzerIn
        
        Moin und vielen Dank für die Hilfestellung !
        
        Eingebaut habe ich die Kombi von sid_burn und renee !
        
        gruß Jan .-)

View all threads created 2010-01-12 09:02.