Вопрос по perl про переключение локалей

[alexkuklin]

Общая постановка задачи: Как в процессе работы перлового скрипта переключиться с однойдругую на дргугую.


Задача для частного случая: Два раза напечатать дату. Один раз в локале из которой скрипт бвторойщен, втоврой раз
в локале en_US (В системе такая локаль есть)

Пробуем решить:

use strict;
use POSIX;

print strftime("%B %d, %Y",0, 0, 0, 30, 10, 79)."\n";

setlocale('LC_ALL','en_US');
$ENV{'LANGUAGE'} = 'en_US';
$ENV{'LANG'} = 'en_US';
$ENV{'LC_ALL'} = 'en_US';

print strftime("%B %d, %Y",0, 0, 0, 30, 10, 79)."\n"; 

Решение не верное. Оба раза дата выводится по русски...

Где ошибка, куда копать?

Comments

Re: Кавычки в общем =)

[vitus_wagner]

Процедура такая. Определенная в модуле POSIX. Вообще константы в Perl обычно такие процедуры, возвращающие константное значение.