use strict; my @a0 = (0, 1, 2, 3); my @a1 = (10, 11, 12); my @a2 = (20, 21); my @x = (\@a0, \@a1, \@a2); for (my $i = 0; $i [$j]; if ($j > 0) { print ", "; } print $p; } print "\n"; } のようなことをしたいがうまくいかない。すなわち、配列の…

曇り時々雨。