ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Victor Kasatkin 2:5020/760.50 19 Aug 2002 16:15:26
To : All
Subject : locale и require
--------------------------------------------------------------------------------
Имеем файл
test1
-+-
sub header{
return uc "$find\n";
};
1;
-+-
test.pl
-+-
#!/usr/bin/perl -T
use locale;
use POSIX qw(locale_h);
my $locale = "ru_RU.KOI8-R";
my $new_locale = setlocale(LC_CTYPE, $locale);
die "Hет локали $locale" if ($new_locale ne $locale);
require './test1';
$find="повар";
print <<TEST;
@{[header()]}
TEST
;
-+-
И на выходе имеем ---- повар.
Если же функцию поместить в тот же файл(без require) все нормально --- ПОВАР.
Victor
--- GoldED+/LNX 1.1.4.7
* Origin: victor_aka@hotbox.ru http:\\volgaflot.narod.ru (2:5020/760.50)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
