#!/usr/bin/perl -w
use strict;

use locale;
print +(sort grep /\w/, map { chr } 0..255), "\n";

no locale;
print +(sort grep /\w/, map { chr } 0..255), "\n";

##</code><code>##

#!/usr/bin/perl -w
use strict;

my (
    @arr1
   );

# GRT
# Sort by num, then letter

use locale;
print "locale\n";

@arr1 = map{ unpack 'x[NA1]A*', $_ }
        sort
        map{ pack 'NA1 A*', substr( $_, 1 ), substr( $_, 0, 1 ),  $_ }
        qw[ A473 B437 B659 C659 C123 D123 D222 E222 E001 A001 ];
print join("\n", @arr1)."\n\n";

no locale;
print "no locale\n";
@arr1 = map{ unpack 'x[NA1]A*', $_ }
        sort
        map{ pack 'NA1 A*', substr( $_, 1 ), substr( $_, 0, 1 ),  $_ }
        qw[ A473 B437 B659 C659 C123 D123 D222 E222 E001 A001 ];
print join("\n", @arr1)."\n";

##</code><code>##

locale
A001
A473
B437
B659
C123
C659
D123
D222
E001
E222

no locale
A001
E001
C123
D123
D222
E222
B437
A473
B659
C659

##</code><code>##

MAILCHECK=60
        MODLIST=($(LC_ALL=C $YAST -l| grep '^[a-z]' | grep -v "Available"));
            done <<(LC_ALL=C $YAST $mod $prev help 2>&1);
            done <<(LC_ALL=C $YAST $mod help 2>&1);
test_lc ()
    for lc in LANG LC_CTYPE LC_NUMERIC LC_TIME LC_COLLATE LC_MONETARY LC_MESSAGES LC_PAPER LC_NAMELC_ADDRESS LC_TELEPHONE LC_MEASUREMENT LC_IDENTIFICATION LC_ALL;
        eval val="\$$lc";
            unset lc val;
    unset lc val;