perl qw(aaa bbb ccc)[$hoge]のような記述

質問

my($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
$wday = sprintf("%s", qw(Sun Mon Tue Wed Thu Fri Sat)[$wday]);

２行目のsprintfですが、qw(Sun Mon Tue Wed Thu Fri Sat)[$wday]はどのようなことが行われているのでしょうか？
sprintf("%s", "hello world!");みたいな基本的なものならsprintfの使い方はわかります。ですが、qw(aaa bbb ccc)[$hoge]のような記述についてがわかりません。
上記の例でいえば、どういう結果になるのかはわかるのですが、どういう過程で代入されているのかがわかりません。

qw(Sun Mon Tue Wed Thu Fri Sat)[$wday]という書式はどういうことが行われているのか教えてください。よろしくお願いします。

回答No.2

mtaka2 · ベストアンサー

> my @weekname = ( "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat");
> $wday = sprintf("%s", $weekname[$wday]);

ならわかりますか?

0～6の7要素の配列 @weekname を使うことで、数字から曜日名への変換をしてます。

この配列変数の代入は、qw 演算子を使うと、

> my @weekname = qw(Sun Mon Tue Wed Thu Fri Sat);
> $wday = sprintf("%s", $weekname[$wday]);

と書けます。
(qw演算子を使えば、文字列配列を簡潔に書けるようになります。結果は同じ)

さらに、@weekname という配列変数を作ってますが、一度きりしか使ってないのに変数を作るのは無駄なので、
> $wday = sprintf("%s", $weekname[$wday]);
このweename部分に@weeknameの中身である、qw(Sun Mon …) を入れてしまえば、
> $wday = sprintf("%s", qw(Sun Mon Tue Wed Thu Fri Sat)[$wday]);
になります。

でも、これって、ちょっと無駄な表現ですね。
「sprintf("%s",○○)」って、元の「○○」と同じ(何もしてない)ので、
> $wday = qw(Sun Mon Tue Wed Thu Fri Sat)[$wday];
で十分。

お礼

print qw(abc def ghi)[2];　　#ghiが表示される
↑この用な記述もできるんですね。知りませんでした。

ということですっきり理解できました！ありがとうございます！

回答No.1

ann_dv

qwは配列の定義です。
後に続く[]内の値がそれぞれ0～6の場合にSun Mon Tue Wed Thu Fri Sat を返します。

参考URL：

http://rfs.jp/sb/perl/02/04.html