1: #!/usr/bin/perl
2:
3: ################################################################
4: ########## стандартные заклинания, которые должны быть везде.###
5: ################################################################
6:
7: use POSIX;
8: use locale;
9: $rl=qr/[йцукенгшщзхъфывапролджэячсмитьбюё]/;
10: $RL=qr/[ЙЦУКЕНГШЩЗХЪЭЖДЛОРПАВЫФЯЧСМИТЬБЮЁ]/;
11: $RLrl=qr/(?:(?:${rl})|(?:${RL}))+/;
12: $l=qr/(?:(?:${RLrl})|(?:[\w\-]))+/;
13: $Ll=qr/(?:[A-Z])|(?:${RL})/;
14:
15:
16:
17:
18:
19: my ($thislocale);
20: if ($^O =~ /win/i) {
21: $thislocale = "Russian_Russia.20866";
22: } else {
23: $thislocale = "ru_RU.KOI8-R";
24: }
25: POSIX::setlocale( &POSIX::LC_ALL, $thislocale );
26: if ((uc 'а') ne 'А') {die "!Koi8-r locale not installed!\n"};
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>