Perl中的哈希常量

Question

我有一种情况，我有一个应用程序，它映射到我需要在zipfile中处理的目录。映射很简单：

CWA => "Financial", 
PIP => "", 
IFA => "IFA", 
VDX => "Financial, 

也就是说，如果该文件的名称与CWA开始，我知道我必须Munge时间目录是Financial下。如果文件名以IFA开头，我知道目录名称是IFA。我想把它设置为散列（很简单），但是由于这些值并没有真正改变，所以我想将这个key =>值映射设置为散列常量。

我不相信这是可能的，所以我想做下一件好事。那会是什么？或者，你可以设置一个哈希常量？

我想写一个子程序，你传递一个参数，它返回正确的值。毕竟，常量本身就是这样工作的，它确保了键和值之间的关系不会在整个程序中发生变化。

或者，我可以简单地在我的程序开始处声明key => value关系，并希望key => value对不会被某些东西修改。这样会更容易阅读，并且如果您必须修改，则更容易，因为它位于我的源代码的顶部。

实现key => value constant的最佳方式是什么？

Answer 1

1. 只要使用一个命名散列。很有可能，没有什么会出错的。

2. 使用Readonly。这使得像任何其他散列一样访问散列，但不能被修改，除非有人开始在perl内部打开。正如其文档中所述，与常规变量访问相比，速度很慢，但它不太可能足够慢以至于不能满足您的需求。

3. 将散列隐藏在子程序中。

。

sub get_directory_for_prefix { 
    my ($prefix) = @_; 
    my %map = (
     CWA => "Financial", 
     PIP => "", 
     IFA => "IFA", 
     VDX => "Financial", 

    ); 
    return $map{$prefix}; 
} 

甚至

sub get_directory_for_prefix { 
    {CWA=>"Financial",PIP=>"",IFA=>"IFA",VOX=>"Financial"}->{shift()}; 
}; 

Answer 2

您可以使用Const::Fast。

use Const::Fast; 
const my %hash = (
    CWA => "Financial", 
    PIP => "", 
    IFA => "IFA", 
    VDX => "Financial", 
); 

Answer 3

这里是我最后还是以下几点建议：

{ 
    my %appHash = (
     CWA => "Financial", 
     PIP => "", 
     FIA => "FIA", 
     VDX => "Financial", 
    ); 

    sub appDir { 
     return $appHash{+shift}; 
    } 
} 

通过将%appHash自己的块，我不能引用哈希在我的代码的其余部分。但是，appDir子例程位于同一个块中并且可以引用它。而且，由于子程序是封装广泛的，我可以在我的代码中访问该子程序。因此，我可以访问%appHash的值，但我无法更改它们。

use strict; 
use warnings; 
{ 
    my %appHash = (
     CWA => "Financial", 
     PIP => "", 
     FIA => "FIA", 
     VDX => "Financial", 
    ); 

    sub appDir { 
     return $appHash{+shift}; 
    } 
} 

{ 
    ### WARNING. 
    ### this code is a counter example to show that %appHash 
    ### is not available in this scope. 
    ### Do not use this code. 
    ### Disabling strictures and warnings in this block only. 

    no strict; 
    no warnings; # Danger Will Robinson! 
    # disable explicit package name error because %appHash is not defined in this scope. 
    # disable warnings related to 1) main::appHash and 2) uninitialized value of $appHash{"CWA"} 

    print "The directory for CWA is " . $appHash{CWA} . "\n"; #Prints nothing 
} 
print "The directory for CWA is " . appDir("CWA") . "\n"; #Prints Financial 

my %appHash; 
$appHash{CWA} = "FOO FOO FOO!"; 

print "The directory for CWA is " . $appHash{CWA} . "\n"; #Prints FOO FOO FOO! 
print "The directory for CWA is " . appDir("CWA") . "\n"; #Still prints Financial 

整洁！

感谢iwj和hobbs

Answer 4

Alternativelly，如果你不想使用块，你可以仍然使用常数：

use strict; 
use warnings; 

use constant CONSHASH => sub {{ 
    foo1 => 'bar1', 
    foo2 => 'bar2', 
    foo3 => 'bar3', 
}->{ +shift }}; 

print CONSHASH->('foo1') . "\n"; 
print CONSHASH->('foo2') . "\n"; 
print CONSHASH->('foo3') . "\n"; 

更好