perl – 如何更改哈希键的大小写？

这有一次：

%hash = map { uc $_ => $hash{$_} } keys %hash;

但是既然你谈到用户存储密钥,那么平局是一种更加可靠的方式,即使速度较慢.

package UCaseHash;
require Tie::Hash;

our @ISA = qw<Tie::StdHash>;

sub FETCH { 
    my ( $self,$key ) = @_;
    return $self->{ uc $key };
}

sub STORE { 
    my ( $self,$key,$value ) = @_;
    $self->{ uc $key } = $value;
}

1;

然后在主要：

tie my %hash,'UCaseHash';

这是一个节目.领带“魔法”将其封装起来,因此用户不会在不知不觉中弄乱它.

当然,只要您使用“类”,就可以传入配置文件名并从那里初始化它：

package UCaseHash;
use Tie::Hash;
use Carp qw<croak>;

...

sub TIEHASH { 
    my ( $class_name,$config_file_path ) = @_;
    my $self = $class_name->SUPER::TIEHASH;
    open my $fh,'<',$config_file_path 
        or croak "Could not open config file $config_file_path!"
        ;
    my %phash = _process_config_lines( <$fh> );
    close $fh;
    $self->STORE( $_,$phash{$_} ) foreach keys %phash;
    return $self;
}

在哪里你必须称它为：

tie my %hash,'UCaseHash',CONFIG_FILE_PATH;

…假设一些常量CONFIG_FILE_PATH.