Forum Webscript.Ru
Программирование => Perl => Тема начата: C++ от 22 Сентября 2002, 13:42:34
-
как создать?
-
@array = (
[2, 0],
[5, 2],
[45, 4]
);
print $array[1][0];
-
Я недавно делал так:
my $matrix = {};
foreach $y(0..21){
foreach $x(0..71){
$matrix->{$y}->{$x} = \'-\';
}
}
foreach $y(sort {$b <=> $a} keys(%{$matrix})){
foreach $x(sort {$a <=> $b} keys(%{$matrix->{$y}})){
print $matrix->{$y}->{$x};
}
print " " x 8;
}
Мне так больше нравится.