Opened by Robby at 2004-02-19 09:49
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
[quote=Robby,23.02.2004, 10:06]
[/quote]
Eventuell solltest Du Komma, Tausenderpunkte und Unterstriche auch zulassen? Aber das hängt natürlich vom Anwendungsfall ab.
Könnte Dich nur irgendwann bei einer Wiederverwendung des Codes kalt überraschen ;)
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;
}
Eventuell solltest Du Komma, Tausenderpunkte und Unterstriche auch zulassen? Aber das hängt natürlich vom Anwendungsfall ab.
Könnte Dich nur irgendwann bei einer Wiederverwendung des Codes kalt überraschen ;)
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite