http://www.perlmonks.org?node_id=808310

wanradt has asked for the wisdom of the Perl Monks concerning the following question:

Hello, devoted!

"use locale" should be something easy, but not to me. Following script should populate 2 equal list under my locale (et_EE.UTF-8), but no.

#!/usr/bin/perl

use strict;
use locale;
use POSIX;

print setlocale( LC_CTYPE ), "\n\n";;

my @real = qw(R S Š Z);
my @fake = 'R'..'Z';
print "@real\n";
print "@fake\n";

__END__

et_EE.UTF-8

R S Š Z
R S T U V W X Y Z

[download]

To test locale, i print it with POSIX setlocale , and perl seems see my locale pretty well. But setlocale does not bother about locale-pragma, same output without it too. So, why "use locale" has no influence on alphabet and how to change it?

Nõnda, WK

Replies are listed 'Best First'.
Re: any use of 'use locale'?
by ikegami (Patriarch) on Nov 20, 2009 at 03:10 UTC
[reply]

      Thank you for suggestion! To be honest, i already did on sept 24th:

      http://pastebin.ca/1679329

      But it seemed to me that perlbug is buggy too, so i made bugreport about perlbug itself:

      http://pastebin.ca/1679330

      Cause i got no any kind of response at all, it seems to me, it was also useless... I did not find any trace of my reports and i don't see public register of perl bug-tickets. Could you point me, what am i missing?

      Nõnda, WK
[reply]

        #!/usr/bin/perl
use locale;
print uc("abcõäöüšž"), "\n";

        [download]

        Wait a sec, š and ž aren't found in iso-8859-1. The file you describe can't possibly exist. If the file is encoded using an encoding other than iso-8859-1, you need to tell Perl. use utf8; tells Perl that the source is encoded using UTF-8.

        That applies to the OP of this thread too, although it won't change the outcome.

        Useful commands: 

        # Source is UTF-8
use utf8;

# Appropriate de/encode data going through STDIN/OUT/ERR.
use open ':std', ':locale';

        [download]
[reply]
[d/l]
[select]

        Yeah, I don't see the first. (Didn't look for the second.) When you use perlbug, it gives the option to "save to file". Then you can use your normal mailer to send the report.

        In other words, take what's on pastebin and send it to perlbug@perl.org. You get sent an automated confirmation message on receipt.

[reply]
Re: any use of 'use locale'?
by ambrus (Abbot) on Nov 21, 2009 at 16:41 UTC

    I don't think the range (or magical increment) operators are supposed to use a non-ascii alphabet ever.

[reply]
      perlop says a value that is not the empty string and matches the pattern /^[a-zA-Z]*[0-9]*\z/ and The range operator also works on strings, using the magical auto-increment, see below.
[reply]
[d/l]
Re: any use of 'use locale'?
by Khen1950fx (Canon) on Nov 23, 2009 at 01:32 UTC
    Just some thoughts... I ran your script as is and I got the following results:

    C

R S ? Z
R S T U V W X Y Z

    [download]

    The results tell me that the encoding is the special locale C which maps to ASCII, the ? mark tells you that something is missing. C maps to ASCII, but the Š does not. I would guess that you have to declare the locale, so I tried this:

    
#!/usr/bin/perl

use strict;
no warnings 'utf8';
use utf8;
use POSIX;
use locale;

print setlocale(LC_CTYPE(), 'et_EE.UTF-8'), "\n\n";

my(@real) = ('R', 'S', 'Š', 'Z');
my(@fake) = ('R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z');

print "@real\n", "@fake\n";

    [download]

    And the results:

    et_EE.UTF-8

R S Š Z
R S T U V W X Y Z

    [download]
    I wasn't comfortable with the range operator, so I deleted that. Personally, I think that it might be a platform-specific problem.
[reply]
[d/l]
[select]

Back to Seekers of Perl Wisdom