どうしてそうなるのかわからない

質問

perlでカレンダーを出力したいと思い検索すると下記のページがヒットしました

Calendar::Simple - シンプルなカレンダーを作る為のPerl拡張
http://perldoc.jp/docs/modules/Calendar-Simple-1.07/Simple.pod

このページにCalendar::Simpleを使ったサンプルが提示されているのですが、その動作が理解できません。最後の部分なのですが

foreach (@month) {
print map { $_ ? sprintf "%2d ", $_ : ' ' } @$_;
print "\n";
}

@$_というのがわかりません。手元のポケットリファレンスには載っていませんでした。@$_はここでは@monthのことを指しているのでしょうか？
とすると、まず@monthから一個要素を取り出して、そこに値が存在すればsprintfするということでよいでしょうか？

もうひとつあります。@monthの中に何が入っているのか調べようと、
print @month[1];
とすると
ARRAY(0x1afe81c)ARRAY(0x1afea20)ARRAY(0x1afe81c)ARRAY(0x1afea20)ARRAY(0x1afe81c)
と意味不明な文字列が出力されます。これはどういうことなのでしょうか？

よろしくお願いします。

回答No.1

BLUEPIXY · ベストアンサー

参考ＵＲＬの中身を観てませんが、
質問文から
@monthの中身は、配列のリファレンスの配列なのでしょう
つまり、
@month =( [ 1 .. 31],[1 .. 28],[1 .. 31],[1 .. 30] );
のような感じ（上記は、１～４月）になっているのだと思います。

[ 1, 2, 3, 4]のようなものは、無名配列といって配列のリファレンス（参照）で、普通
@ary = (1, 2, 3, 4);
のように配列は、書きますが、
配列のリファレンスの場合は、
$aref = [ 1, 2, 3, 4];
のように、変数としては、スカラー（単体の変数）です。
リファレンスとは、このように、配列の有り場所の場所という１つの実体を指すものなので、スカラーなのです。
そうした配列の有り場所を指す変数を配列として扱うには、
@$arefのように@を付けてやりますこれをデリファレンスといいます。
つまり、
@$_ の部分では、配列のリファレンスの配列から１つのリファレンスを取り出し、配列に戻してやっているということです。

map の中の$_は、@$_ とした時の 配列の中身の１つです。

変数をprintした時
＞ARRAY(0x1afe81c)
のように表示されたら、それは、配列(ARRAY)のリファレンスが格納されているということです。

サンプル：
１）
$ref = [ 1 , 2, 3, 4, 5 ];
print map { $_ ? sprintf "%2d ", $_ : ' ' } @$ref;
２）
$ref = [ 1 , 2, 3, 4, 5 ];
foreach (@$ref){
print "$_\n";
}
３）
@ary = ( 1 , 2, 3, 4, 5 );
foreach (@ary){
print "$_\n";
}
４）
@ary = ( [1,2] , [2, 3], [3, 4] );
foreach (@ary){
print map { $_ ? sprintf "%2d ", $_ : ' ' } @$_;
print "\n";
}

お礼

理解できました！わかりやすい説明、サンプルをありがとうございました！
「配列のリファレンスの配列」という表現がリンク先にもあったのですが、よくわからなかったのです。なるほど、こういうことでしたか。
助かりました・・・