git://git.jankratochvil.net
/
nethome.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
+--fast
[nethome.git]
/
bin
/
sortn
diff --git
a/bin/sortn
b/bin/sortn
index
bf87d95
..
ad0c7d0
100755
(executable)
--- a/
bin/sortn
+++ b/
bin/sortn
@@
-7,15
+7,15
@@
print sort {
my $a=$a;
my $b=$b;
while ($a ne "" || $b ne "") {
my $a=$a;
my $b=$b;
while ($a ne "" || $b ne "") {
- $a=~s/^(\D
+
)//s;
+ $a=~s/^(\D
*
)//s;
my $as=$1;
my $as=$1;
- $b=~s/^(\D
+
)//s;
+ $b=~s/^(\D
*
)//s;
my $bs=$1;
my $rs=$as cmp $bs;
return $rs if $rs;
my $bs=$1;
my $rs=$as cmp $bs;
return $rs if $rs;
- $a=~s/^(\d
+
)//s;
+ $a=~s/^(\d
*
)//s;
my $an=$1;
my $an=$1;
- $b=~s/^(\d
+
)//s;
+ $b=~s/^(\d
*
)//s;
my $bn=$1;
my $rn=$an<=>$bn;
return $rn if $rn;
my $bn=$1;
my $rn=$an<=>$bn;
return $rn if $rn;