Perl ハッシュの値のリストをスカラーコンテキストで評価すると？

Question

こんにちわ。
初めての利用です。

Perlの事で質問なのですが、
my $score=($hash{"fred"},$hash{"barney"},$hash{"wilma"});
とすると$scoreにはキー「wilma」に対応した値が代入される様です。
リスト形式をスカラーコンテキストで評価すると、リストの要素数を返すと記憶していたので、この場合$scoreには3が代入されると思っていたのですが・・・。

試しに
my @scores=($hash{"fred"},$hash{"barney"},$hash{"wilma"});
$score=@score;
とすると$scoreに3が代入された様です。

この二つの式では一体何が違うのでしょう・・・？

Tacosan · Accepted Answer

$a = (3, 2, 1);
の場合, 左辺がスカラー変数だから右辺もスカラーコンテキストで評価されます. で, スカラーコンテキストの場合には「(」, 「)」は普通の「優先順位を変える」意味になりかつ「,」は「順に評価する」という意味を持つ演算子になります. そのため, 上の例では 3, 2, 1 と順に評価しその最後の値である 1 が右辺の値となって $a に代入されます. 一方
@a = (3, 2, 1);
の場合, 左辺が配列変数なので右辺は配列コンテキストで評価されます. この場合「(」, 「)」は配列要素をまとめるという意味, 「,」は配列要素を区切るという意味になります. で, @a は 3個の要素からなる配列になります. この状態で
$a = @a;
とやると, 最初の例と同様に左辺はスカラー変数だから右辺もスカラーコンテキストで評価されます. ところがこの例では右辺が配列変数 @a となっており, これをスカラーコンテキストで評価するとその要素数 (今の例では 3) が得られます. 従って, この文を実行すると $a の値は 3 となります.
で, #2 の最後でやりたいことって
$a = @{[3, 2, 1]};
かなぁ? 無名配列を作る「[」や無名ハッシュを作る「{」は, 同時に対応するコンテキストを強制します.

sakusaker7 · Answer

> #2 の最後でやりたいことって
> $a = @{[3, 2, 1]};
> かなぁ? 

いえ、リファレンスを持ち出していいものか判断できなかったので
とりあえずそれは考えていませんでした。

というかここまできてちゃぶ台返しなんですが、実際のところ
無名の配列の長さを知りたいというニーズがあったりしての
質問だったのでしょうか?
思考実験としては面白いかもしれませんが、実際のスクリプトで
使う場面がありうるのかなあと。

kapura · Answer

既に回答されていますが、簡単に言えば、リストと配列は微妙に扱いが違うということだと思います (多くの場合同じように考えて大丈夫)。つまり、@num = (2, 4, 6, 8, 10) とすると、(2, 4, 6, 8, 10) というコードの部分を機械的に @num とか $num と書き換えても異なる結果になり得る (でも多くの場合同じ結果になると考えて大丈夫)。

$list = (2, 4, 6, 8, 10);
では右辺はリストというか、右辺のコンマ (カンマ) はコンマ演算子で、コンマで区切られたコードを左から順に実行していって、最後のコード (右端のコード) の値10が $list に代入される (丸括弧はそこを先に評価するように優先順位を上げている)。この場合は、右辺を @num と書いたのと結果が異なります (要素数の5が $list に代入される)。
# 右辺に丸括弧がない場合は、=が優先されて $list = 2 というコードと見なされる

($list) = (2, 4, 6, 8, 10);
と書けば、右辺のリストの要素のうち、左辺にない余分な要素は無視されて、2が $list に代入される。この場合は、右辺を @num と書いても同じ結果になります。

kabaokaba · Answer

らくだ本の第3版の日本語版のp.84から始まる
話題だと思います．
曰く，

・(LIST)はリストリテラル
・リストリテラルはリストコンテキストだけで
その内容をならべたリストとなる
・リストリテラルは式の中では
「スタックにその値をプッシュする」だけで
スタックに詰まれた値は，リストを必要とする演算子によって
リストとしてポップされて回収される
・スカラコンテキストではリストリテラルは
各要素が順番評価されて「最後の値」が返される

などなど・・・
つまり，sakusaker7さんの説明は
正鵠を得たものだと思います．
＃というか，sakusaker7さんの説明で
＃らくだ本の記述を思い出して紐解いた(^^;;

蛇足ですが，以下のような感じでしょうか．
$x = (1,2,3,4);
とした場合は (1,2,3,4) は式の中であって
リストを必要とする演算子もなく，
スカラコンテキストなので 4 が返される．
$x = (1,2,3,4)[0]
とした場合は，式の中であって[0]によって
スタックにつまれたものはリストとなって
さらに配列になって 1 がでてくる．

>my @scores=($hash{"fred"},$hash{"barney"},$hash{"wilma"});
>$score=@score;
これに関しては，本質的にまったく同じ例が
らくだ本のp.85にでています．
一行目の右辺はリストコンテキストなので
配列の値として使われて @score に入ります．
そして，二行目では
「配列@score」がスカラコンテキストで評価されるので
その要素数 3 が返されるということです．
らくだ本にそのまま同じフレーズがありますが
「リストと配列は違うものである」ということです．

>リスト形式をスカラーコンテキストで評価すると、リストの要素数を返すと記憶していたので、
ここに誤解の根元があって，
やはり「リストと配列は違う」ということだと思いますよ．

>@{(1, 2, 3, 4, 5)} 
これは(1,2,3,4,5)がスカラコンテキストなので
@5 になりますね．

(a,b,c,d,e) を評価して ``要素数'' を出すということなら
scalar map {$_} (a,b,c,d,e)
scalar @{[(a,b,c,d,e)]};
とか，とにかくリストリテラルをどこかでリストコンテキストにおいて
配列にしてからそれをスカラコンテキストで評価することになるのだと
思います．

sakusaker7 · Answer

すみません。
, と = の優先順位を勘違いしていました。
ですので、カッコ抜きで書いたときに先頭のものの値が代入されるのは
それであってます。

ちょっとうまい具合に説明できないのですが、
$x = (1, 2, 3, 4);
としたときに右辺はリストではないのですが、
$x = (1, 2, 3, 4)[0];
のようにしたときには、[]の働きによってカッコの中がリスト扱いになります。
そのため
>my $list=(1,2,3,4,5)[3];
>こうすると$listには4が代入されますよね。
という結果になります。

@{(1, 2, 3, 4, 5)} とかいう記述もだめだしどうしたもんですかねえ。
ちょっと考えてみます。

sakusaker7 · Answer

最初の例の右辺はリストじゃないですよ。

カッコ抜きで
my $score= $hash{"fred"},$hash{"barney"},$hash{"wilma"};
と書いたのと同じことなので、
最後の値が左辺にあるスカラー変数に代入されたのです。

後の例だと代入の右辺もリストと見なされますので
リスト同士の代入になり、
リスト変数をスカラーコンテキストで評価した結果を
$scoreに格納しているので、要素数の3が入ったというわけです。

Perl ハッシュの値のリストをスカラーコンテキストで評価すると？

> #2 の最後でやりたいことって

既に回答されていますが、簡単に言えば、リストと配列は微妙に扱いが違うということだと思います (多くの場合同じように考えて大丈夫)。

らくだ本の第3版の日本語版のp.84から始まる

$a = (3, 2, 1);

すみません。

最初の例の右辺はリストじゃないですよ。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング