anomalne zachowanie Push ramach Catalyst MVC

Question

spodziewałbym następujący kod

my @array; 
for my $rapport (qw(value1 value2 value3)) { 
    push @array, { key => $rapport }; 
} 

do przedstawienia:

$VAR1 = [ 
     { 
     'key' => 'value1' 
     }, 
     { 
     'key' => 'value2' 
     }, 
     { 
     'key' => 'value3' 
     } 
    ]; 

jednak uruchomiony ten segment kodu pod Catalyst MVC uzyskać:

$VAR1 = [ 
      { 
      'key' => [ 'value', 'value2', 'value3' ] 
      }, 
     ]; 

Czy ktoś może mi wyjaśnić, dlaczego?

EDYCJA: Czy ktoś z tym samym problemem może podać przykład? Nie mogę się odtworzyć po pewnych zmianach w kodzie, ale ponieważ zostało 5 razy wznowione, zakładam, że inni użytkownicy również doświadczyli tego problemu?

Answer 1

Przykład ten kod ...

#!/usr/bin/perl 

use Data::Dumper; 
my @input = ("var1", "var2", "var3"); 
my @array; 
for my $rapport (@input) { 
    push @array, { key => $rapport }; 
} 

print Dumper(\@array); 

exit; 

produkuje ...

$VAR1 = [ 
      { 
      'key' => 'var1' 
      }, 
      { 
      'key' => 'var2' 
      }, 
      { 
      'key' => 'var3' 
      } 
     ]; 

ale po ...

#!/usr/bin/perl 

use Data::Dumper; 
my @input = [ "var1", "var2", "var3" ]; # sometimes people forget to dereference their variables 
my @array; 
for my $rapport (@input) { 
    push @array, { key => $rapport }; 
} 

print Dumper(\@array); 

exit; 

pokazy ...

$VAR1 = [ 
      { 
      'key' => [ 
         'var1', 
         'var2', 
         'var3' 
        ] 
      } 
     ]; 

Jak widać oba przykłady przechodzą przez macierz, ale druga to tablica, która została zainicjowana wartością odniesienia. Ponieważ w Catalyst zwykle przesyłasz różne wartości za pośrednictwem aplikacji za pomocą skrytek lub podobnych konstrukcji, możesz sprawdzić, czy twoja tablica zawiera wartości skalarne:)