Funktionsaufruf - aber nicht alle Parameter fortlaufend übergeben (gelöst) (Allgemeines zu Perl)

[thread]18890[/thread]

Funktionsaufruf - aber nicht alle Parameter fortlaufend übergeben [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+7 replies
jan99

2014-02-05 11:23
User since
2008-09-18
439 Artikel
BenutzerIn
Moin !

ich habe da einmal eine Verständnisfrage zur Übergabe von Parametern.

Es geht z.b. um folgende Funktion:
Code (perl): (dl )

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

sub printHTMLHeaderUTF8 { my $file = shift ; my $title = shift ; my $css = shift ; my $with_headerclose = shift ; #my $neuerParameter = shift; if (! (defined ($with_headerclose))) { $with_headerclose = 1} if (! (defined ($title))) { $title = '??????'} ...... return (1) ; }
Nun soll ein weiterer Parameter (oben noch auskommentiert) übergeben werden - das ist nicht das Problem. Die Frage kommt jetzt wenn die Funktion aufgerufen werden soll und ich z.b. den neuen Parameter übergeben will. Der Parameter CSS soll aber vielleicht mal nicht übergeben werden.

Aus VB ist mir noch im Hinterkopf das die Variablen durch Komma getrennt werden und wenn ein Parameter nicht übergeben wird, dann wird zwischen die Komma kein Wert übergeben.

In Perl habe ich noch nicht das "richtige" gefunden - das ist doch sicherlich auch ganz klever gelöst?!

Gruß Jan :-)
perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
- +4 replies
- Muffi
  
  2014-02-05 12:00
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  Die einfachste Möglichkeit ist erstmal $css als undef zu übergeben.
  
  //edit: wenn das nicht praktikabel ist, z.B. weil zu viele optionale Params, dann nimmt man normalerweise einen Hash.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  foo($pflicht1, $pflicht2, { opt1 => 123, opt3 => 456}); Sub foo { my $pflicht1 = shift; my $pflicht2 = shift; my $opt = shift; # hashref }
  
  Last edited: 2014-02-05 12:06:35 +0100 (CET)
  1 + 1 = 10
  - jan99
    
    2014-02-05 12:04
    
    User since
    2008-09-18
    439 Artikel
    BenutzerIn
    
    hi !
    
    Quote
    Die einfachste Möglichkeit ist erstmal $css als undef zu übergeben.
    
    ich dachte das wäre zu quick-and-dirty und uncool. Deshalb habe ich nachgefragt.
    
    Danke!
    
    Gruß Jan :-)
    perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
  - +2 replies
  - clms
    
    2014-02-05 13:09
    User since
    2010-08-29
    373 Artikel
    BenutzerIn
    
    2014-02-05T11:00:53 Muffi
    Die einfachste Möglichkeit ist erstmal $css als undef zu übergeben.
    
    //edit: wenn das nicht praktikabel ist, z.B. weil zu viele optionale Params, dann nimmt man normalerweise einen Hash.
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7
    
    foo($pflicht1, $pflicht2, { opt1 => 123, opt3 => 456}); Sub foo { my $pflicht1 = shift; my $pflicht2 = shift; my $opt = shift; # hashref }
    
    Ein anderes gebräuchliches Pattern ist es, statt dem Hash-Ref quasi den Inhalt des Hashs am Ende des Funktionsaufrufs zu übergeben:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12
    
    foo($pflicht1, $pflicht2, opt1 => 123, opt3 => 456); sub foo { my $pflicht1 = shift; my $pflicht2 = shift; my %opt = ( opt1 => "Default_für_opt1", opt2 => "default-opt2", @_); say $opt{opt1}; # 123 say $opt{opt2}; # default-opt2 }
    
    Wie Du siehst kann man mit diesem Muster sehr elegant in der Funktion Defaultwerte für die Parameter spezifizieren. Wenn der Parameter im Funktionsaufruf gesetzt wird, wird der Default überschrieben.
    - Muffi
      
      2014-02-05 14:00
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Hash (oder besser Liste) statt Hashref geht auch.
      Was mir persönlich an der Referenz besser gefällt:
      - Automatischer Check auf gerade Anzahl
      - Optisch besser erkennbar
      - Bei Erweiterungen besser abgesichert gegen Fehler
      1 + 1 = 10
- bianca
  
  2014-02-05 12:04
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Du kannst dann undef oder '' übergeben, also
  printHTMLHeaderUTF8(1,2,3,4,'')
  oder
  printHTMLHeaderUTF8(1,2,3,4,undef)
  
  Das obere fragst du dann in der sub mit if ... eq '' und das untere mit if ... defined ab.
  
  Übrigens ist die Übernahme einfacher zu machen:
  my ($file,$title,$css,$with_headerclose) = @_;
  10 print "Hallo"
  20 goto 10
- rosti
  
  2014-02-05 14:04
  
  User since
  2011-03-19
  3492 Artikel
  BenutzerIn
  
  Listen sind unschön. Komfortabler ist ein Hash, hier sieht jeder, mit welchen Schlüssel/Werten die Funktion arbeitet und es können Default-Werte gesetzt werden. Das macht einen Code besser lesbar, gerade in Hinsicht Teamarbeit.
  
  --Rosti

View all threads created 2014-02-05 11:23.