変数名を配列として利用するには？

複数のモジュールに記述されている配列を１つの配列へ代入したいと思っています。

単純に考えれば、

@array = (@Module1::array, @Module2::array, @Module3::array);

で良いのですが、モジュールが多岐に渡っており、モジュール名自体はスカラー変数へ代入して置き、それを利用したいと考えています。

@array = ();
foreach $m (qw(Module1 Module2 Module3)) {
$mn = $m. '::array';
foreach $w (@{$mn}) { # @Module1::array にアクセスしているつもり
push(@array, $w);
}
}

この様なイメージです。
しかし、@{$mn}は

Can't use string ("変数名") as an ARRAY ref while "strict refs" in use at 行番号.

になってしまいます。

スカラー文字列に入っている配列変数へアクセスするにはどう記述すれば良いでしょうか？

No.2 ベストアンサー 回答者： kumoz 回答日時： 2008/11/20 17:04

テストしていないので自信はないのですが、配列名を文字列として組み立てて eval

するとうまくいくのではないかと思います。

> foreach $w (@{$mn}) { # この行を、下のように変更する

foreach $w (eval('@' . $mn)) {

この回答へのお礼

kumoz さん

素直にevalで囲ってしまう。と言う手もありますね。
コードも分かりやすいし、保守性を確保する上でも良い方法ですね！

この方法を採用させて頂きたいと思います。
ありがとうございました。

お礼日時：2008/11/20 21:03

No.1 回答者： Tacosan 回答日時： 2008/11/20 14:45

一応 2通りほど考えてみました:

1. あっさりあきらめてその部分だけ no strict; する
2. パッケージのシンボルテーブルを使って大技で:
パッケージ Module1 のシンボルテーブルは $::{'Module1::'} で参照できます. この中から配列 array のデータを取り出せばよいので, @Module1::array は @{$::{'Module1::'}{array}} によっても参照できます.
ということで
foreach $m (qw(Module1 Module2 Module3)) {
push @array, @{$::{$m . '::'}{array}};
}
でよいのではないかと. ちなみに配列全体をまとめて push できます.

この回答へのお礼

Tacosan さん

> 1. あっさりあきらめてその部分だけ no strict; する

一瞬諦めかけました(^^;)

> 2. パッケージのシンボルテーブルを使って大技で:
> パッケージ Module1 のシンボルテーブルは $::{'Module1::'} で参照できます. この中から配列 array のデータを取り出せばよいので, > @Module1::array は @{$::{'Module1::'}{array}} によっても参照できます.

あぁ～ なるほど！確かにその通りですね。そこまで気が回りませんでした。

ありがとうございました。

お礼日時：2008/11/20 21:01