Parameter bei der Übergabe "überspringen" (gelöst) (Allgemeines zu Perl)

[thread]19586[/thread]

Parameter bei der Übergabe "überspringen" [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+5 replies
jan99

2015-03-26 14:47
User since
2008-09-18
439 Artikel
BenutzerIn
Moin !

ich muss noch eine Frage für heute nachschieben...

Es gibt eine Funktion
Code (perl): (dl )

1 2 3 4 5 6 7 8

sub WriteLogFile{ # Name der Log-Datei my $filename = shift; # Inhalt für die Log-Datei my $message = shift || "no message for report!"; # optionale zusätzliche Message-Zeile my $write_special = shift || ""; my $output2shell = shift || 0;
Der Aufruf ist klar, wenn am Schluss immer irgendwelche Werte nicht übergeben werden. Dann kommen die Defaultwerte zum Einsatz.

Jetzt habe ich aber einen alten Aufruf der nur die ersten 2 Parameter liefert und den möchte um $output2shell erweitern. Für $write_special gibt es weiterhin keinen Wert und deshalb soll default verwendet werden.

Meine Idee war
Code (perl): (dl )

WriteLogFile_Cancel($config{logfilename},,1);
... aber das geht nicht - gibt es eine Alterative?

Gruß Jan
perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
- Raubtier
  
  2015-03-26 15:42
  
  User since
  2012-05-04
  1083 Artikel
  BenutzerIn
  
  undef übergeben.
  
  Bei deiner Art Code, z.B. my $message = shift || "no message for report!";, kann $message nie "0" sein! Daher ggf. // statt || nehmen.
- +2 replies
- clms
  
  2015-03-26 15:47
  User since
  2010-08-29
  373 Artikel
  BenutzerIn
  Ich sehe zwei Möglichkeiten:
  1. beim Aufruf für die "ungenutzten" Parameter "zwischendrin" die Default-Wert übergeben, also
  
  Code (perl): (dl )
  
  WriteLogFile_Cancel($config{logfilename},"no message for Report!","",1);
  
  oder
  
  2. Auf "named" Parameter umstellen, wo die Optionen als Key-Value-Paare an ein Hash übergeben werden, z.B. so:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  sub WriteLogFile { my $filename = shift; # erster Parameter über Position, muss immer gesetzt werden my %opt = ( # Hash mit optionalen Parametern # Defaultwerte message => "no message for report!", write_special => "", output2shell => 0, # mit verbliebenen Parametern aus dem Funktionsaufruf überschreiben @_); ... if ($opt{output2shell}) {...} ... }
  
  Der Funktionsaufruf, bei dem nur Filename und output2shell übergeben werden, sieht dann so aus:
  
  Code (perl): (dl )
  
  WriteLogFile($config{logfilename}, output2shell => 1);
  - jan99
    
    2015-03-26 16:07
    
    User since
    2008-09-18
    439 Artikel
    BenutzerIn
    
    Moin !
    
    danke und +10.
    
    "named" Parameter war mir bisher noch nicht in Perl bekannt !
    
    Das kann ja sehr hilfreich sein.
    
    Gruß Jan
    perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
- GUIfreund
  
  2015-03-27 18:52
  User since
  2011-08-08
  559 Artikel
  BenutzerIn
  2015-03-26T13:47:30 jan99
  Meine Idee war
  
  Code (perl): (dl )
  
  WriteLogFile_Cancel($config{logfilename},,1);
  
  ... aber das geht nicht - gibt es eine Alterative?
  
  Das geht schon. Aber in deinem Aufruf hast du nur 3 Werte übergeben. Dadurch ist der ausgelassene Wert nicht $write_special, sondern $message.
  Gruß
  GUIfreund

View all threads created 2015-03-26 14:47.