Perl'de sınıf içi 2B dizi tanımlama

Question

Perl için yeni ve Perl'de sınıfımın bir niteliği olarak bir 2B dizi tanımlamaya çalışıyorum. aşağıdaki gibi ben,

sub new{ 
my $class = shift; 
my $self = {}; 

my @board = []; 
for (my $i = 0; $i < 8; $i++){ 
    for(my $j = 0; $j < 8; $j++){ 
     $board[$i][$j] = '.'; 
    } 
} 
$self->{board} = @board; 
bless($self, $class); 
return $self; 
} 

Ama benim sınıfını tanımlamak daha sonra ben

Can't use string ("8") as an ARRAY ref while "strict refs" in use 

kimse bana söyleyebilir belirten bir hata var bu

$self->{board}[$i][$j] = ' '; 

gibi tahta alanını erişmeye çalıştığınızda üzerinde Bunu yapmanın doğru yolu nedir? Sadece kullanımı kesin olarak silmek istemiyorum.

Answer 1

ben, değil my @board=[]; hakkında

sub new{ 
my $class = shift; 
my $self = {}; 

my @board =(); # not [] 
for (my $i = 0; $i < 8; $i++){ 
    for(my $j = 0; $j < 8; $j++){ 
     $board[$i][$j] = '.'; 
    } 
} 
$self->{board} = \@board; # not @board 
bless($self, $class); 
return $self; 
} 

veya

sub new{ 
my $class = shift; 
my $self = {}; 

my $board = []; # not @board 
for (my $i = 0; $i < 8; $i++){ 
    for(my $j = 0; $j < 8; $j++){ 
     $board->[$i][$j] = '.'; 
    } 
} 
$self->{board} = $board; # not @board 
bless($self, $class); 
return $self; 
} 

olan çizgiler değişti ve yorum # niyetinizi bkz eminim ne kodunuzu değiştirmiş =([],); ile aynı şekilde, ilk öğesi bir ARRAY için @board referansı olan bir liste (ARRAY anlamına gelir) atar, ancak bu sizin kodu, bu boş dizi referans tahsisi ve atama sıfırı üzerine yazdığınız için başarısız olur. @board, $ self -> {board} bekleyeceği bir liste değil,

Answer 2

$self karma dosyanızın içine bir referans atıfta bulunmanız gerekir. Şu anda skaler bağlamda bir dizi değer yerleştiriyorsunuz - bu, uzunluğu 8. Elbette bunu daha sonra herhangi bir şeye referans olarak kullanamazsınız.

$self->{board} = \@board; 

Answer 3

Diğerleri size sorunun yapıcınızla ilgili açıklamalarını vermişlerdir. Ekleyeceğim, $board değişkenini atlayıp C stili döngüler kullanarak biraz basitleştirebilirsiniz.

sub new { 
    my $class = shift; 

    my $self = {}; 
    $self->{board} = []; 

    for my $i (1 .. 8) { 
    for my $j (1 .. 8) { 
     $self->{board}[$i][$j] = '.'; 
    } 
    } 

    return bless $self, $class; 
} 

Ben de daha kolay ayarlanabilir ve yönetim kurulu öğeleri almak için yapmak aşağıdaki üç yöntemi eklersiniz:

sub board { 
    my $self = shift; 
    return $self->{board}; 
} 

sub set_board_element { 
    my $self = shift; 
    my ($i, $j, $val) = @_; 

    $self->board->[$i][$j] = $val; 
} 

sub get_board_element { 
    my $self = shift; 
    my ($i, $j) = @_; 

    return $self->board->[$i][$j]; 
} 

Eğer sınıfını yazmaya Moose kullanmayı düşündünüz mü? Hayatını kolaylaştıracak. Özellikle, Array traits, sorununuz için iyi bir uyum gibi görünüyor.