Funktion in 99 myUtils: Optionaler Parameter?

[heikoh81]

Halo zusammen,

ich habe in meiner 99 myUtils einige Funktionen.
Eine davon, die ich sehr oft verwende, möchte ich um einen optionalen Parameter erweitern.
D.h. nur wenn ich die Funktion explizit mit einem Wert für den optionalen Parameter aufrufe, soll dieser übergeben werden, sonst soll der Wert NULL oder "0" sein.

Ich möchte nicht alle Funktionsaufrufe in Timern etc. überarbeiten (zur Not ginge es auch mit Suchen & Ersetzen...).

Geht das?
Und wenn ja, wie?

Viele Grüße,
Heiko

[CoolTux]

Code Auswählen Erweitern


sub test($,$)


Ich glaube mich erinnern zu können das es wohl so gehen soll. nach dem Komma ist dann optional.



Grüße

[Hans Franz]

Muss, glaube ich, ein Semikolon sein. Oder ganz ohne Angabe von Parametern a la:

Code Auswählen Erweitern

sub name {

Gruß
Hans

[jojoja]

Hallo Heiko,

hier ein Beispiel aus meinen Utils:

Code Auswählen Erweitern

sub defineUhrzeitAnsage ($;$$){
my ($player, $count, $volume) = @_;

        #Standardwert für String setzen, wenn nicht übergeben
$volume //= "40";

        #Standardwert für Integer setzen, wenn nicht übergeben
$count = 0 unless $count;
...
}


Gruß Johannes

[CoolTux]

Ah ok, Semikolon. Genau das war es. Hatte das nur noch so in Erinnerung aus meiner letzten Codeschnüffelei.

[heikoh81]

Hallo zusammen,

vielen Dank für eure schnellen Antworten.
Das ist genau, wonach ich gesucht habe.

Code Auswählen Erweitern

sub defineUhrzeitAnsage ($;$$){
my ($player, $count, $volume) = @_;

        #Standardwert für String setzen, wenn nicht übergeben
$volume //= "40";

        #Standardwert für Integer setzen, wenn nicht übergeben
$count = 0 unless $count;
...
}


Ich konnte mir trotz Google-Suche das "//=" nicht erklären, ganz unten auf der Seite.
https://de.wikibooks.org/wiki/Perl-Programmierung:_Operatoren

Code Auswählen Erweitern

Der defined-or Operator
Neu in Perl 5.10 ist der defined-or operator // bzw. //=. Er überprüft nicht den Wahrheitsgehalt seines Argumentes, sondern die Definiertheit.

Bedeutet das, dass "40" nur in $volume geschrieben wird, wenn kein Wert übergeben wurde?
Und bedeutet der "unless"-Befehl dann das gleiche?

Viele Grüße,
Heiko

[betateilchen]

Oder ganz ohne Angabe von Parametern

das ist die einfachste Lösung...

[luetty]

Hallo heikoh81,

erst vorgestern stand ich vorm gleichen Problem. 
Wenn Du Pflichtparameter hast, dann deklarierst Du deine Sub mit ($), wenn PflichtParameter und optionalem Parameter dann mit ($;$) und wenn nur mit optionalem Parameter, dann mit (;$).

Alles nach dem Semikolon ist optional ein $ natürlich für jeden Parameter!

Funktioniert bei mir:
sub istWeihnachtszeit(;$) {...}

Der optionale Parameter bei mir ist eine LogAusgabe mit der aktiven "Weihnachtszeit" (Beleuchtung aktiv).


ciao
luetty