Nur als hinweis, nicht dass du noch durcheinander kommst.
my $x = 1;
sollte
my $a = 1;
heissen.
Oder doch besser andersrum.
my $x = 1;
my $x = 1;
myadd($x);
print $x; # Ausgabe 2
sub myadd{
my $scalarref = shift;
$$scalarref += 1; # hier dereferenzieren
}
[/code]
Grund: $a und $b sind in Perl spezielle Variablen.
sort{ sa <=> $b } @array
Ich habe es nicht getestet, aber unter Umständen könnte die Verwendung von $a und $b unangenehme Nebenfolgen haben.
mfg Beat;
<o(((°> ><o(((°>
<°)))o>< ><o(((°>o