|
Тема |
Re: broia na izmereniata na masiv [re: chainik] |
|
Автор |
sdg (shebang addict) |
|
Публикувано | 07.06.05 11:30 |
|
|
Масивите в Perl са само едномерни, няма шега
Многомерни масиви се реализират чрез референции (кхм, указатели). Виж следния пример (и отговор на въпроса, надявам се):
#!/usr/bin/perl
use warnings;
use strict;
sub arraydepth
{
my $arrayref = shift;
my $depth = 0;
while ('ARRAY' eq ref($arrayref))
{
$depth++;
$arrayref = $arrayref->[0];
}
return $depth;
}
my @a = (1,2);
my @b = (3,4);
my @c = (5,6);
my @d = (7,8);
my @w = (\@a,\@b);
my @t = (\@c,\@d);
my @x = (\@w,\@t);
print
arraydepth('X'), " ",
arraydepth(\@a), " ",
arraydepth(\@w), " ",
arraydepth(\@x), "\n";
RTFM!
--sdg
|
| |
|
|
|