Opened by PROXEN at 2013-10-06 13:44
User since
2013-07-23
21 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2013-07-23
21 Artikel
BenutzerIn
Hallo,
ich habe ein Funktion test, die ich sehr oft aufrufe und ihren Rückgabewert teste. Wenn der Rückgabewert eine Bedingung erfüllt, rufe ich die exit Funktion auf. Mir gefällt das nicht, da ich sehr viel solche aufrufe habe und es meiner Meinung nach nicht sehr gut ausschaut.
Meine Frage: Wie kann ich die Funktion exit in der Funktion test aufrufen, sodaß ich nicht den Rückgabewert immer umständlich testen muss, sondern gleich in der Funktion test gleich auf exit geht? Ich will aber auch nicht immer die Variablen $x und $y mitgeben müssen, die die Funktion exit braucht (hab da noch mehr Variablen, die ich der Funktion test mitübergebe)?
Kann man zb eine Funktion global machen und ihr immer die gleichen Variablen mitübergeben, ohne dass ich Variablen an eine Funktion übergeben muss und dort wieder an eine Funktion mitübergeben muss?
ich habe ein Funktion test, die ich sehr oft aufrufe und ihren Rückgabewert teste. Wenn der Rückgabewert eine Bedingung erfüllt, rufe ich die exit Funktion auf. Mir gefällt das nicht, da ich sehr viel solche aufrufe habe und es meiner Meinung nach nicht sehr gut ausschaut.
Meine Frage: Wie kann ich die Funktion exit in der Funktion test aufrufen, sodaß ich nicht den Rückgabewert immer umständlich testen muss, sondern gleich in der Funktion test gleich auf exit geht? Ich will aber auch nicht immer die Variablen $x und $y mitgeben müssen, die die Funktion exit braucht (hab da noch mehr Variablen, die ich der Funktion test mitübergebe)?
Kann man zb eine Funktion global machen und ihr immer die gleichen Variablen mitübergeben, ohne dass ich Variablen an eine Funktion übergeben muss und dort wieder an eine Funktion mitübergeben muss?
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
my var $x;
my var $y,
if (my $b = &test) {exit($x,$y)};
if (my $c = &test) {exit($x,$y)};
if (my $h = &test) {exit($x,$y)};
sub exit {
my $x = shift;
my $y = shift;
}
sub test{
return somethig;
}