Сообщения

1

Perl / use local начинающему

« : 06 Апреля 2002, 23:48:33 »

Здравствуйте! Помогите начинающему.

1. Как поставить локаль на FreeBSD, т.е. все три строки добавлять (см. ниже) или одну из них? (пробовал на win95 с "Russian_Russia.1251" все 3 строки - не работает и по одной тоже не работает)

-----
use locale;
use POSIX qx (locale_h);
setlocale (LC_CTYPE, \'ru_RU.KOI-8\');
-----

2. Куда добавлять вместо local или куда-то еще? (ниже кусочек кода из скрипта).

-----
sub get_data {
    local($name, $value, $pair, $buffer, @pairs);
    if ($ENV{\'REQUEST_METHOD\'} eq \'GET\') и т.д.      
-----


Заранее спасибо.