組合せの一覧を表示したいのですが

質問

Perl初心者です、よろしくお願いします。

全組合せの一覧を表示したいのですが
よい方法はないでしょうか？

@A(あ,い,う,え)
@B(か,き,く)
@C(さ,し,す,せ,そ)
とした場合

１|あ か さ
２|い か さ
３|う か さ
　　　・
　　　・
　　　・
というように全組合せの一覧を表示したいのです。
なにかよい方法を教えていただきたいのですが
よろしくお願いします。

回答No.3

natsuki_tk · ベストアンサー

ymmasayanさんがおっしゃられてますけれども、
三重ループにするのが簡単だと思います。

foreach $c (@C){
　　foreach $b (@B){
　　　　foreach(@A){
　　　　　　print "$_ $b $c\n";
　　　　}
　　}
}

また、先頭に～～番目とつける必要があれば、
$loop=0;
foreach $c (@C){
　　foreach $b (@B){
　　　　foreach(@A){
　　　　　　$loop++;
　　　　　　print "$loop: $_ $b $c\n";
　　　　}
　　}
}
としてやればいいかと。