Code-Optimierung - #130412 (Allgemeines zu Perl)

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 )

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/