Lowercasing umlauts in words

[Anonymous Monk]

Hello Monks!

I'm trying to set words in a mixed case format. The cpan NameCase module seems interesting but it doesn't seem to handle german umlauts. I'm wondering if there is another way. When I use perl's lc on it. Most of the word is lowercased except for the umlaut. Any tips?

#!/usr/local/bin/perl -w
use strict;
use Lingua::EN::NameCase 'nc';

print nc("BAESCHGÄSSEL") . "\n";  #not ok

print lc("BAESCHGÄSSEL") . "\n";  #Better uppercase umlaut

The output is:

BAESCHGÄSSEL

baeschgÄssel

[haoess]

From perllocale:

By default, Perl ignores the current locale. The "use locale" pragma tells Perl to use the current locale for some operations: [ ... ] lc().

$ perl -le 'print lc "ÄÖÜ";'
ÄÖÜ

$ echo $LC_ALL
de_DE

$ perl -Mlocale -le 'print lc "ÄÖÜ";'
äöü

You can switch the current locale in your perl program reading locale or perllocale.

And BTW: lc is the same as "\L".

-- Frank

[the_slycer]

I had the same issue a while back with french characters.

The answer is the locale pragma:



use locale;
print lc("BAESCHGÄSSEL") . "\n";

Output: baeschgässel

[roju]

I had success using a regular expression.

perl -pe 's/(.*)/\L\1/' worked no problem.

[Anonymous Monk]

Upgrading to version 5.8 fixed this. I was using version 5.6. Thanks everyone!