version 1.1, 2001/10/31 03:00:07
|
version 1.2, 2001/10/31 03:07:18
|
Line 1
|
Line 1
|
################################################################
|
#!/usr/bin/perl |
########## стандартные заклинания, которые должны быть везде.###
|
|
################################################################
|
################################################################ |
|
########## стандартные заклинания, которые должны быть везде.### |
|
################################################################ |
$rl=qr/[йцукенгшщзхъфывапролджэячсмитьбюё]/;
|
|
$RL=qr/[ЙЦУКЕНГШЩЗХЪЭЖДЛОРПАВЫФЯЧСМИТЬБЮЁ]/;
|
|
$RLrl=qr/(?:(?:${rl})|(?:${RL}))+/;
|
$rl=qr/[йцукенгшщзхъфывапролджэячсмитьбюё]/; |
$l=qr/(?:(?:${RLrl})|(?:[\w\-]))+/;
|
$RL=qr/[ЙЦУКЕНГШЩЗХЪЭЖДЛОРПАВЫФЯЧСМИТЬБЮЁ]/; |
$Ll=qr/(?:[A-Z])|(?:${RL})/;
|
$RLrl=qr/(?:(?:${rl})|(?:${RL}))+/; |
|
$l=qr/(?:(?:${RLrl})|(?:[\w\-]))+/; |
|
$Ll=qr/(?:[A-Z])|(?:${RL})/; |
|
|
|
|
|
|
my ($thislocale);
|
|
if ($^O =~ /win/i) {
|
|
$thislocale = "Russian_Russia.20866";
|
my ($thislocale); |
} else {
|
if ($^O =~ /win/i) { |
$thislocale = "ru_RU.KOI8-R";
|
$thislocale = "Russian_Russia.20866"; |
}
|
} else { |
POSIX::setlocale( &POSIX::LC_ALL, $thislocale );
|
$thislocale = "ru_RU.KOI8-R"; |
if ((uc 'а') ne 'А') {die "!Koi8-r locale not installed!\n"};
|
} |
|
POSIX::setlocale( &POSIX::LC_ALL, $thislocale ); |
|
if ((uc 'а') ne 'А') {die "!Koi8-r locale not installed!\n"}; |