|
#!/bin/perl
my @c0 = (1,2,3);
my @c1 = (1,2,3,4);
my @c2 = (1,2,3,4,5);
my @c3 = (1,2,3,4,5,6);
my @c4 = (1,2,3,4,5,6,7);
my @call = (\@c0,\@c1,\@c2,\@c3,\@c4);
foreach $acall (@call) {
print "$acall";
foreach $anum (@{$acall}) {
print " $anum";
}
print "\n";
}
#---------------------------------------------------------------------------------------------------------#
#!/usr/bin/perl
@P=();
for($j=0;$j<10;$j++) { for($i=0;$i<10;$i++) {
$P[$j][$i]=$j*10+$i;
}}
$s=\@P;
for($j=0;$j<10;$j++) {
for($i=0;$i<10;$i++) {
print "$$s[$j][$i] ";
}
print "\n";
}
|
|