Perlでconstant(定数)をhashのキーに使う

Perlでconstant(定数)をhashのキーに使う

2021-04-193 min read

目次

  1. 概要
  2. ハマった事象
  3. 解決方法
  4. 参考にしたサイト

概要

Perlでconstant(定数)をhashのキーに使う方法でハマりました。その時の解決方法です。

ハマった事象

例えば以下のようなコードがあったとします。

use constant VAR_1 => 'var_2';

my $hash_ref = {
    VAR_1 => 'hoge'
};

print $hash_ref;

ここで期待する出力はvar_2をキーとするハッシュ(リファレンス)を想定していましたが、実際にはVAR_1がキーとなっていました。

# 期待していた値
$VAR1 = {
          'var_2' => 'hoge'
        };
# 実際に定義された値
$VAR1 = {
          'VAR_1' => 'hoge'
        };

解決方法

1 括弧をつける

Perlのconstantはサブルーチンと同じ扱いとなるようなので、括弧をつけて呼び出します。

use constant VAR_1 => 'var_2';

my $hash_ref = {
    VAR_1() => 'hoge'
};

print $hash_ref;
# $VAR1 = {
#           'var_2' => 'hoge'
#         };

2 & をつける

use constant VAR_1 => 'var_2';

my $hash_ref = {
    &VAR_1 => 'hoge'
};

print $hash_ref;
# $VAR1 = {
#           'var_2' => 'hoge'
#         };

参考にしたサイト

Is there any way to use a “constant” as hash key in Perl?

[Perl]定数をHashのKeyに使用するときの注意点

constant - 定数を宣言するための Perl プラグマ - perldoc.jp

Tags
javascript(109)
linux(54)
node.js(53)
amazon%20aws(47)
typescript(44)
%E3%82%A2%E3%83%AB%E3%82%B4%E3%83%AA%E3%82%BA%E3%83%A0(36)
%E7%94%BB%E5%83%8F%E5%87%A6%E7%90%86(30)
html5(29)
php(24)
centos(24)
python(22)
%E7%AB%B6%E6%8A%80%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%9F%E3%83%B3%E3%82%B0(21)
mac(21)
mysql(20)
canvas(19)
opencv(17)
%E9%9B%91%E8%AB%87(16)
docker(16)
wordpress(15)
atcoder(14)
apache(12)
%E6%A9%9F%E6%A2%B0%E5%AD%A6%E7%BF%92(12)
%E3%83%87%E3%83%BC%E3%82%BF%E3%83%99%E3%83%BC%E3%82%B9(12)
amazon%20s3(12)
red%20hat(12)
prisma(12)
ubuntu(11)
github(10)
git(10)
vue.js(10)
%E7%94%BB%E5%83%8F%E5%87%A6%E7%90%86100%E6%9C%AC%E3%83%8E%E3%83%83%E3%82%AF(10)
mariadb(10)
react(9)
aws%20cdk(9)
css3(8)
%E5%8F%AF%E8%A6%96%E5%8C%96(8)
%E5%B0%8F%E3%83%8D%E3%82%BF(8)
nestjs(8)
amazon%20lightsail(7)
next.js(7)
%E3%83%96%E3%83%AD%E3%82%B0(6)
cms(6)
oracle(6)
perl(6)
gitlab(6)
iam(5)
amazon%20ec2(5)
%E8%B3%87%E6%A0%BC%E8%A9%A6%E9%A8%93(5)
aws%20amplify(5)
curl(4)
Author
githubzennqiita
ただの備忘録です。

※外部送信に関する公表事項