ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     21 Aug 2002  12:52:30
 To : Victor Kasatkin
 Subject : Re: locale и require
 -------------------------------------------------------------------------------- 
 

 Здравствуй, Victor Kasatkin.
 
 VK> Hello everybody.
 
 VK> Имеем файл
 
 VK> test1
 VK> -+-
 VK> sub header{
 
 VK> return uc "$find\n";
 VK> };
 VK> 1;
 VK> -+-
 
 VK> test.pl
 
 VK> -+-
 VK> #!/usr/bin/perl -T
 VK> use locale;
 VK> use POSIX qw(locale_h);
 VK> my $locale = "ru_RU.KOI8-R";
 VK> my $new_locale = setlocale(LC_CTYPE, $locale);
 VK> die "Hет локали $locale" if ($new_locale ne $locale);
 VK> require './test1';
 
 VK> $find="повар";
 VK> print <<TEST;
 VK> @{[header()]}
 VK> TEST
 VK> ;
 VK> -+-
 
 VK> И на выходе имеем ---- повар.
 
 VK> Если же функцию поместить в тот же файл(без require) все нормально ---
 VK> ПОВАР.
 
 Директива use имеет лексическую область видимости. И тем самым required файлы
 не распространяется.
 
 -- 
 Artem Chuprina
 Communiware.net
 RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
 --- ifmail v.2.15dev5
  * Origin: Leninsky 45 home network (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    locale и require   Victor Kasatkin   19 Aug 2002 16:15:26   Re: locale и require   Artem Chuprina   21 Aug 2002 12:52:30   locale и require   Victor Kasatkin   21 Aug 2002 16:03:46   Re: locale и require   Artem Chuprina   22 Aug 2002 14:21:08