perl - ロケールを制御しながら perl で外部コマンドを実行するにはどうすればよいですか?

Question

この質問に関連していますが、より詳細です。次のようなコマンドを実行しています。

foreach $dir (@dirs) {
    $cnt = `svn st $dir | wc -l`;
    if($cnt > 0){
        $content .= "$dir\n";
        $mods++;
    }
}

ただし、ディレクトリには非 ASCII ファイルが含まれているため、ロケールが正しくないか設定されていない場合はエラーがスローされます。

perl で必要なロケールを設定する正しい方法は次のとおりです。

setlocale(LC_CTYPE, 'en_US.UTF-8');

svn stただし、正しいロケールが設定された端末で perl スクリプトが実行されていない場合でも、ロケールエラーが発生するため、これはコマンドに影響していないようです。

score 4 · Accepted Answer

外部コマンドの環境変数を設定する必要があります。

$cnt = `LC_CTYPE=en_US.UTF-8 svn st $dir | wc -l`;

スクリプト（%ENV）の環境を変更することもできます。これにより、子プロセスの環境が変更されます。

$ENV{LC_CTYPE} = 'en_US.UTF-8';

score 3 · Accepted Answer

%ENVハッシュを操作して、新しいプロセスの環境をセットアップします。

$ENV{LC_CTYPE} = 'en_US.UTF-8';
$cnt = `svn ...`;

2 に答える 2