Perl多语言优化：英文用户免加载语言文件，哈希未定义返回键名

我有一个结构如下的大型语言文件：

Click here|Cliquez ici
New|Nouveau
...

我开发了支持英文和法文的应用，语言文件由CONF.pm加载到哈希%t中，应用中通过以下方式使用：

<input type="button" value="$t{'Click here'}">
<a href="new.pl">$t{'New'}</a>
...

根据用户设置，应用会显示英文或法文，因此必须先通过CONF.pm加载语言文件来填充%t。

问题在于大多数用户是英文用户，每次加载语言文件会占用大量内存。对于英文用户而言，语言文件并非必需，因为$t{'Click here'}的值始终是Click here。

我希望实现：当用户为英文时不加载语言文件，当哈希值未定义时直接显示哈希的键名，同时无法修改应用中数千处$t{'...'}代码，期望效果如下：

<input type="button" value="Click here">
<a href="new.pl">New</a>
...

Perl完全可以实现这个需求，核心是通过tie函数将哈希绑定到自定义逻辑，让访问不存在的键时自动返回键名，无需修改现有代码：

步骤1：定义自定义哈希绑定包 #

创建一个简单的Perl包（比如T::AutoHash），实现哈希的FETCH方法，当键不存在时返回键名：

package T::AutoHash;
use strict;
use warnings;

sub TIEHASH {
    my $class = shift;
    return bless {}, $class;
}

# 处理哈希键的读取请求
sub FETCH {
    my ($self, $key) = @_;
    return exists $self->{$key} ? $self->{$key} : $key;
}

# 处理哈希键的赋值请求
sub STORE {
    my ($self, $key, $value) = @_;
    $self->{$key} = $value;
}

# 可选：处理键存在性检查
sub EXISTS {
    my ($self, $key) = @_;
    return exists $self->{$key};
}

1;

步骤2：在CONF.pm中根据语言设置处理%t #

修改CONF.pm的逻辑，根据用户语言决定是加载语言文件还是绑定魔法哈希：

use strict;
use warnings;
our %t;

# 假设此函数获取用户的语言设置（从会话/请求参数等）
my $user_lang = get_user_language();

if ($user_lang eq 'fr') {
    # 法文用户：正常加载语言文件到%t
    open my $fh, '<', 'lang_file.txt' or die "无法打开语言文件: $!";
    while (my $line = <$fh>) {
        chomp $line;
        my ($key, $value) = split /\|/, $line, 2;
        $t{$key} = $value;
    }
    close $fh;
} else {
    # 英文用户：绑定%t到自定义哈希，自动返回键名
    require T::AutoHash;
    tie %t, 'T::AutoHash';
}

效果说明 #

• 英文用户：无需加载大型语言文件，访问$t{'Click here'}时，因为哈希中无对应键，FETCH方法直接返回键名Click here，完全符合期望。
• 法文用户：正常加载语言文件，$t{'Click here'}返回Cliquez ici，原有逻辑不受影响。
• 所有现有$t{'...'}的调用无需修改，完全兼容。

内容的提问来源于stack exchange，提问作者Bart Van der Donck