Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

Cyrillic problem...

by mattihe (Novice)
on Jun 27, 2004 at 20:33 UTC ( #370039=perlquestion: print w/replies, xml ) Need Help??

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

Hello! I got a problem that I cannot solve. For indexing purposes I would have to find out a way how to lowercase cyrillic letters... Is there some universal lowercase command that I could use or... Has anyone come across with these? -NewBie- This: $s =~ tr/\xA8\xC0-\xDF/\xB8\xE0-\xFF/; # lc RusCyr Win1251 was best for me, thanks

Replies are listed 'Best First'.
Re: Cyrillic problem...
by ccn (Vicar) on Jun 27, 2004 at 20:55 UTC
    You can use locale
    use locale; use POSIX qw (locale_h); setlocale(LC_CTYPE, 'Russian_Russia.1251'); print lc ('ПРИВЕТ');
    or use tr/// operator
    $s = "ПРИВЕТ"; $s =~ tr/\xA8\xC0-\xDF/\xB8\xE0-\xFF/; # lc RusCyr Win1251 print $s;
Re: Cyrillic problem...
by graff (Chancellor) on Jun 28, 2004 at 02:45 UTC
    If you aren't using utf8 for your Cyrillic data, what encoding are you using? (ISO8859-5? CP1251? KOI8?) Whatever it is, Perl 5.8 has a means built in to convert it into utf8. Once the text is in utf8 (or if you're using utf8 already), then it's really simple:
    $_ = lc();
    The conversion to utf8 (and back to whatever you started with) is also simple, using either a PerlIO layer or the Encode module -- e.g., if your input data is cp1251, you can open an input file like this:
    open( IN, "<:encoding(cp1251)", $filename ) or die $!;
    This way, the text you read in is automatically converted to perl's internal utf8 encoding, and all character-based operators and functions (lc, uc, length, substr, regexes, cmp, eq, and so on) will work the way you want them to, regardless of what language the text is in. Look through the Encode, PerlIO, perluniintro and perlunicode man pages for more details.
Re: Cyrillic problem...
by Joost (Canon) on Jun 27, 2004 at 20:47 UTC
Re: Cyrillic problem...
by PERLscienceman (Curate) on Jun 27, 2004 at 20:51 UTC
    Greetings Mattihe!
    Welcome to the world of Perl.
    Without any further information I would suggest that you visit the CPAN and search on the keyword cyrillic, and see what turns up. There may be a Perl Module there to suit your needs.
    Along with this perlmonks site, I have found CPAN to be an excellent source for all things related to Perl.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://370039]
Approved by PERLscienceman
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (5)
As of 2021-01-17 03:37 GMT
Find Nodes?
    Voting Booth?