PerlでHashのキーを制限する方法

質問

• Perlで関数に値を渡す際にハッシュを利用しようと思っていますが、キーのtypoが気になります。検索してみると、Hash::Util::lock_keys()などが見つかりましたが、これは実行されるとエラーになる仕組みです。もし、ハッシュを使わずに引数を渡す方法があれば教えていただきたいです。
• 関数に対して36個の引数を渡す際にミスがないようにしたいです。ハッシュを使わずに他の方法があれば教えてください。
• 引数を順番に指定する方法よりも、ハッシュを使って渡すほうが良いと思いますが、他にもうまい方法があれば教えていただきたいです。ご存知の方がいらっしゃいましたら、教えてください。

回答No.1

tsuduki123

どうしてもという場合には lvalue を使いますかねぇ？
あんまり使ったことないので自信はないです。

個人的なおすすめは配列にして普通に変数でアクセスですね。

以下はlvalueのサンプルです

#!/usr/bin/env perl

use strict;
use warnings;

package SAMPLE;
{
sub new()
{
my $prot = shift || 'SAMPLE';
return bless {
'MA' => 0
, 'MB' => 0
},$prot;
}
sub MA : lvalue
{
shift->{'MA'};
}
sub MB : lvalue
{
shift->{'MB'};
}
}

package main;

my $sample = SAMPLE->new();
$sample->MA = 5;
printf "MA:%d, MB:%d\n", $sample->MA, $sample->MB;
$sample->MC = 5;

exit 0

お礼

lvalue というのは初めて知りました。Perl は色々ありますね…
ありがとうございます。

やっぱり配列ですか。
Perl歴が浅いので他の人はどうしている/どうするのかとか参考になります。
ただ引数が多い場合、配列だとうっかり順番が違ってても気づきにくいんじゃないかと気になるんですよね…

みなさんのソースを見つつ自分でも色々考えていたのですが、
キー値を定数定義してそれを使うようにしたらどうかと思いました。
どうなんだろう… 一応定義していない定数(typo)を使おうとすると use strict; で怒ってもらえるけど…
一応貼っておきます。

{
package MyUtil;
　　use constant KEY_FOO_ID => 'id';
　　use constant KEY_FOO_NAME => 'name';

　　sub foo {
　　　　my ($args) = @_;

　　　　print "id[" . $args->{MyUtil::KEY_FOO_ID} . "] ";
　　　　print "name[" . $args->{MyUtil::KEY_FOO_NAME} . "] ";
　　}
}

sub test {
　　# ハッシュに値を詰める
　　my $hsref = {
　　　　MyUtil::KEY_FOO_ID => '01',
##　　　MyUtil::KEY_FOO_NAMO => 'SUZUKI', # error
　　　　MyUtil::KEY_FOO_NAME => 'YAMADA'
　　};

　　# 関数に渡す
　　MyUtil::foo($hsref);
}

#test();