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