/[soft]/ldetect-lst/trunk/convert/sort_MonitorsDB.pl
ViewVC logotype

Contents of /ldetect-lst/trunk/convert/sort_MonitorsDB.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1357 - (show annotations) (download)
Tue May 17 09:21:22 2011 UTC (10 years, 1 month ago) by dmorgan
File MIME type: text/plain
File size: 325 byte(s)
Import  ldetect
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;

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.28