Perl 6でハッシュの配列を作るには？

Question

「ソース」とは無関係にarrayにプッシュされたhashを作成する方法hash？

my %country; 
my Hash @array; 

%country{ 'country' } = 'France'; 
@array.push(%country); 
%country{ 'country' } = 'Germany'; 
@array.push(%country); 

.say for @array; 

出力は次のようになります。

{country => Germany} 
{country => Germany} 

そして、もちろん、それは私が欲しいものではありません。

Answer 1

ときハッシュ%countryを、参照を%countryにプッシュしている配列にプッシュします。このようにして、各配列要素は同じ元のハッシュ%countryを参照します。また、ハッシュの値を変更すると、すべての配列要素に（このすべてが同じハッシュを参照するため）この変更が反映されます。新しいハッシュを押すたびに新しいハッシュを作成したい場合は、代わりに匿名のハッシュを押してみてください。例えば、このように

%country{ 'country' } = 'France'; 
@array.push({%country}); 
%country{ 'country' } = 'Germany'; 
@array.push({%country}); 

、%countryのコピーへの参照は、（%countryへの参照の代わりに）毎に押し込まれます。

出力：

{country => France} 
{country => Germany} 

Answer 2

ほとんどすべてのプログラミング言語にこの問題があります。あなたは同じハッシュを複数回配列に押し込んでいます。ハッシュを変更すると、配列内の両方の参照が変更されます。

あなたがアレイ上に異なるハッシュをプッシュする場合は、あなたが期待する結果表示されます：

my %a = (country => 'China'); 
my %b = (country => 'USA'); 
my Hash @array; 
@array.push(%a); 
@array.push(%b); 
say @array.perl; 

あなたの代わりに2つのハッシュを宣言する、アレイ上にそれを押すと、あなたも、ハッシュをコピーすることができます。これはまたこの問題を解決します：

my %country; 
my @array; 
%country<country> = 'México'; 
@array.push(%country.list.hash); 
%country<country> = 'Canada'; 
@array.push(%country.list.hash); 
say @array.perl; 

ところで、ハッシュをコピーする方法はたくさんあります。キーは、キー/値を取得し、それをハッシュに戻すことです。どのハッシュコンストラクタ、どの平坦化メソッドを使用するかはあなた次第です。 （.kv、.list、.pairs、.flatが何らかの形で、順次要素を取得するすべてのHashメソッドです。ホーコンが示した方法は、その後一人で構文で別のハッシュを作成する要素を取得し、より暗黙的である。）

Answer 3

あなただけの簡単なキーと値のペア（ないマルチパートハッシュ）ペアを検討したい場合は？

my Pair @array; 
@array.push((:country<Germany>)); 
@array.push((country => "France")); 
say @array; 
say .kv for @array