Opened by h0scHberT at 2011-04-09 13:20
ich hab das jetzt so gelöst:
Ich bin mir sicher man kann das Perl-typisch schöner lösen :)
Last edited: 2011-04-09 13:52:50 +0200 (CEST)
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)