Opened by Robby at 2004-02-19 09:49
User since
2003-08-11
409 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-11
409 Artikel
BenutzerIn
Ich kann sicherstellen, das alle Werte numerisch sind :)
Ich hab mal folgendes gebastelt was funktioniert
Jetzt ist nur die Frage, wie ich $test DYNAMISCH zusammen bauen kann weil für die 2. Spalte stimmt das numerisch/alphanumerisch ja nicht mehr :(
Ich hab mal folgendes gebastelt was funktioniert
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
my @sorteddata = sort rulez1 @data;
...
sub rulez1
{
my $test;
if ( $a->[0] =~ /^[0-9]*$/ && $b->[0] =~ /^[0-9]*$/ )
{
$test = $a->[0] <=> $b->[0] || $a->[1] <=> $b->[1];
}
else
{
$test = $a->[0] cmp $b->[0] || $a->[1] cmp $b->[1];
}
return $test;
}
Jetzt ist nur die Frage, wie ich $test DYNAMISCH zusammen bauen kann weil für die 2. Spalte stimmt das numerisch/alphanumerisch ja nicht mehr :(
Kaum macht man es richtig - schon funktioniert es!