js_locale/trunk/sort.pl

#!/usr/bin/perl -w

use strict;
use locale;

my $chars;

for (my $i = 0; $i <= 255; $i++) {
        $chars .= chr($i);
}

# extract just wordcharacters
$chars =~ s/\W//g;

my @c = split(//,$chars);

print STDERR "printable letters:$chars [",$#c,"]\n";

print "var _lc_locale = '".join("",sort @c)."';\n";

1	dpavlin	1	#!/usr/bin/perl -w
2
3			use strict;
4			use locale;
5
6			my $chars;
7
8			for (my $i = 0; $i <= 255; $i++) {
9			$chars .= chr($i);
10			}
11
12			# extract just wordcharacters
13			$chars =~ s/\W//g;
14
15			my @c = split(//,$chars);
16
17			print STDERR "printable letters:$chars [",$#c,"]\n";
18
19			print "var _lc_locale = '".join("",sort @c)."';\n";
20