Subroutine in Package (Allgemeines zu Perl)

[thread]16170[/thread]

Subroutine in Package

Tags: perl5 Subroutinen Ähnliche Threads

Leser: 25

Articles: hide open all | hide show old branches

+6 replies
Gast h0scHberT

2011-04-09 13:20

Hallo zusammen,
ich habe in einem Package eine subroutine.
Diese Routine soll von außen aufgerufen werden können aber auch von Routinen innerhalb des Packages.
Wenn ich die Routine von "außen" aufrufe muss ich ja 2x shift() verwenden um den ersten Parameter zu bekommen. Wenn ich nun aber die sub von "innen" aufrufe müsste ich ja nur 1x shift() verwenden.
Wenn ich jetzt die Anzahl der Argumente abfrage und in der if dann $user = shift(); mache gilt das ja für $_ in der if.
Aber wie kann ich das jetzt auf $_ der sub ausführen.

Klingt etwas kompliziert aber ich hoffe ihr versteht mich :)
Last edited: 2011-04-09 15:34:24 +0200 (CEST)
- +2 replies
- Gast h0scHberT
  
  2011-04-09 13:48
  ich hab das jetzt so gelöst:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13
  
  #Damit man die Subroutine auch innerhalb des Packages verwenden kann #wird hier die Anzahl der Parameter geprüft my @param = @_; my $size = @param; my $user; if($size eq '2') { $user = $param[1]; } else { $user = $param[0]; }
  
  Ich bin mir sicher man kann das Perl-typisch schöner lösen :)
  Last edited: 2011-04-09 13:52:50 +0200 (CEST)
  - lichtkind
    
    2011-04-09 13:55
    User since
    2004-03-22
    5697 Artikel
    ModeratorIn + EditorIn
    
    Code (perl): (dl )
    
    1 2
    
    my @param = @_; my $user = $#param == 1 ? $param[1] : $param[0];
    
    numerische werte vergleicht man besser mit == statt eq was eher für textvergleiche ist, denn 0 == 0.00 aber '0' ist nicht eq '0.00'.
    Last edited: 2011-04-09 13:59:07 +0200 (CEST)
    Tutorien in der Wiki, mein zeug:
    kephra, baumhaus, garten, gezwitscher
    
    Es beginnt immer mit einer Entscheidung.
- +3 replies
- rosti
  
  2011-04-09 14:20
  User since
  2011-03-19
  3470 Artikel
  BenutzerIn
  2x shift?
  
  Wenn die Sub eine Methode ist, wird sie so aufgerufen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  $obj->method($param); sub method{ my $self = shift; # object see call above my $param = shift; }
  
  Funktionen, die ohne Object aufgerufen werden, legst Du besser in @EXPORT oder @EXPORT_OK.
  
  Du kannst Deinen Code übersichtlicher machen, indem Du Methoden für den internen Gebrauch mit einem underscore like sub _initialize{} kenntlich machst.
  
  Dokumentiere die API.
  
  --Rolf
  - topeg
    
    2011-04-09 15:41
    User since
    2006-07-10
    2611 Artikel
    BenutzerIn
    
    Es kommt auf den Aufruf an:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14
    
    package test_package; sub func { print "VALS: @_\n"; my $val=@_>1?$_[1]:$_[0]; print "VALUE:$val\n"; } package main; test_package->func('test1'); print "###############################\n"; test_package::func('test2');
  - Gast h0scHberT
    
    2011-04-09 20:50
    
    vorweg ich hab wenig Erfahrung mit Perl, da ich C++ und Java normal programmiere.
    Bei mir ist das wie folgt aufgebaut:
    ich hab eine foo.pl und diese ruft eben subroutinen aus der foo.pm auf.
    Wenn ich jetzt aus der foo.pl Aufrufe starte bekomme ich beim ersten shift nur z.b name=HASH(x20932) und beim nächsten shift kommt dann erst der erste parameter.
    Wenn ich jetzt mit einer subroutine von foo.pm auf eine andere subroutine innerhalb von foo.pm zugreife ist beim ersten shift gleich mein erster parameter.
    
    Aber wie schon gesagt, ich konnte das Problem welches ja nicht wirklich eins ist lösen.
    Danke für eure schnelle hilfe.
    Perl ist schon sehr speziell wenn ich mir nur mal eure if-abfragen anschau :)
    vorallem wenn man c++ spricht :)
    Last edited: 2011-04-09 21:25:53 +0200 (CEST)

View all threads created 2011-04-09 13:20.