Anomale Push-Verhalten unter Katalysator MVC

Question

Ich würde erwarten, den folgenden Code

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

zu produzieren:

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

jedoch dieses Code-Segment unter Katalysator MVC laufe ich:

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

Kann mir bitte jemand erklären warum?

EDIT: könnte jemand mit dem gleichen Problem bitte ein Beispiel hinzufügen? Ich kann nicht nach einigen Codeänderungen reproduzieren, aber da es 5 mal upvoted wurde, nehme ich an, dass einige andere Benutzer dieses Problem ebenfalls erfahren haben?

Answer 1

Dieses Codebeispiel ...

#!/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; 

produziert ...

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

Aber die folgende ...

#!/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; 

zeigt ...

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

Wie Sie sehen können, durchlaufen beide Beispiele ein Array, aber das zweite ist ein Array, das mit einem Referenzwert initialisiert wurde. Da Sie in Catalyst normalerweise verschiedene Werte über Ihre Anwendung über Stash oder ähnliche Konstrukte versenden, können Sie überprüfen, ob Ihr Array wirklich skalare Werte enthält:)