trunk/convert/sort_MonitorsDB.pl

#!/usr/bin/perl

use POSIX;
use locale;
$ENV{LC_COLLATE} || $ENV{LANG} or setlocale(LC_COLLATE, "fr_FR");

my @l = <>;

@l = map { $_->[1] } sort { $a->[0] cmp $b->[0] } map {
    my $val = $_;
    chomp;
    s!^\s*(#.*|$)!!;
    s!(;.*?);.*!$1!;
    s/(\d+)/sprintf("%06d", $1)/e;
    [ $_, $val ];
} @l;

print foreach @l;
1	#!/usr/bin/perl
2
3	use POSIX;
4	use locale;
5	$ENV{LC_COLLATE} \|\| $ENV{LANG} or setlocale(LC_COLLATE, "fr_FR");
6
7	my @l = <>;
8
9	@l = map { $_->[1] } sort { $a->[0] cmp $b->[0] } map {
10	my $val = $_;
11	chomp;
12	s!^\s(#.\|$)!!;
13	s!(;.?);.!$1!;
14	s/(\d+)/sprintf("%06d", $1)/e;
15	[ $_, $val ];
16	} @l;
17
18	print foreach @l;