Return to common.pl CVS log

Up to [Local Repository] / db / prgsrc

chgk.cnf

    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"};