Linux 上的 Perl：更改子进程的语言环境

Question

更改子进程区域设置的正确方法是什么（在 Linux 中）？

例如，运行时

perl -e 'use POSIX qw(setlocale); setlocale(POSIX::LC_ALL, "C"); open F, "locale|"; while (<F>) { print if /LC_MESS/ }; close F'

我得到了答案LC_MESSAGES="ca_ES.UTF-8"，但我想获得LC_MESSAGES="C"。无论我尝试过什么，我似乎都无法改变它。

注意：我知道LC_ALL=C perl .....，但这不是我想做的不是，我需要更改 Perl 脚本中的语言环境。

Answer 1

我正在接听Ted Lyngmo's comment，所以归功于他。

您可以使用%ENV 为您的代码以及后续子流程设置环境。与所有全局变量一样，仅针对您的范围和较小的范围在本地临时更改这些变量是有意义的。这就是local 所做的。

我还更改了您的 open 以使用三参数形式，因为这样更安全（即使您没有使用文件名/命令的变量），并使用了词法文件句柄。词法句柄将在块末尾和 close 隐式超出范围。

use strict;
use warnings;
use POSIX qw(setlocale);

{
    setlocale(POSIX::LC_ALL, "C");
    local $ENV{LC_ALL} = 'C';

    open my $fh, '-|', 'locale' or die $!;
    while (<$fh>) {
        print if /LC_MESS/
    };
}