Все мы знаем как это делается
$string =~ s/[A-Z]/[a-z]/подскажите ламеру как это сделать с кириллицей
НЕПРАВИЛЬНО!!! $string =~ s/[А-Я]/[а-я]/как правильно:-(
p.s. про локаль знаю (use locale), про нее можете не писать.
Пример:
#!/usr/bin/perl -wuse strict;
use locale;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);print header (-type => 'text/html',-charset=>'Windows-1251',-expires=>'+3d'),
start_html (-bgcolor => "white");my $myWord1 = 'WORD';
my $myWord2 = 'МИР';print "Word1 - ",lc($myWord1),"\n
";
print "Word2 - ",lc($myWord2),"\n";print end_html ();
Видем на экране:
Word1 - word
Word2 - МИР
либо локаль отсутствует в системе, либо файл (слово) не в системной локали написано.
В последнем случае поможет setlocale. И вообще, топикстартер, неужто так сложно прочитать хотя бы первые две странички man perllocale.