hiroyukim https://blog.hatena.ne.jp/hiroyukim/ (ヽ´ω`)　 https://hiroyukim.hatenablog.jp/ use strict; use warnings; my @data = ( [qw/1 2 3/], [qw/1 2 3/], [qw/1 2 3/], ); &loop(0); sub loop { my ($index,@nums) = @_; unless( $data[$index] ) { print join("\t",@nums) . "\n"; return; } for my $v ( @{$data[$index]} ) { &loop($index+1,(@nums,$v)); } } 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fhiroyukim.hatenablog.jp%2Fentry%2F20100303%2F1267585104" title=" [perl][再帰] - (ヽ´ω`)　" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2010-03-03 11:58:24 rich https://hiroyukim.hatenablog.jp/entry/20100303/1267585104 1.0 100%