Perl: bunun <code>$b</code> sonunda</p> <ul> <li><pre><code>{ 'b' => { 'c' => 1, 'd' => 1, 'e' => 1 } }; </code></pre></li> </ul> <p>: Bunun sonunda referansı

Question

$a = {b=>{c=>1}}; # set up ref 
$b = $a->{b};  # ref the ref 
$b .= (d=>1,e=>1); # where we want to assign multiple key/val at once 

hashref üzerine anahtarı/değer çifti itmek ve hala muhafaza Nasıl $a gibi görünmelidir

• { 
      'c' => 1, 
      'd' => 1, 
      'e' => 1 
  } 
  

01: gibi görünmelidir

---

Not: yaptığını aynı olacaktır: o $a bir kopyasını oluşturur ve başvuru kaybeder çünkü

$b->{d} = 1; 
$b->{e} = 1; 

---

$b = { %$b, d=>1, e=>1 }; arzu değil mi.

Answer 1

%{$b} = (d => 1, e => 1); 

Anonim hash-ref dosyasını yalnızca referans olarak kullanabilirsiniz, böylece atama işlecine bir karma gibi görünecektir.

Hatta yapabilirsiniz: %$b için (bazı durumlarda bir sözdizimsel anlam ayrım olabilir ama) Bu durumlarda %{$b} yılında

%{$b} = (%{$b}, d => 1, e => 1); 

sadece gerçekten görsel bir kolaylık.

... ya da yapabilirdi ...

foreach (qw/ d e /) { 
    $b->{$_} = 1; 
} 

Açıkçası muhtemelen her şeyi '1' değerini atamak isteyen değiliz. Peki bir dilim hakkında:

@{$b}{ qw/ d e/} = (1, 1); 

Dilimler perldoc perldata tartışılmaktadır, ancak anonim bir karma bir dilim alarak iyi perldoc açıklama gerçekten yok. Bunun için referanslardaki tüm Perl belgelerine başvurmanız ve sonra sözdizimini dilimlemek için nasıl uygulayacağınızı tahmin etmeniz gerekir. ... ya da PerlMonks'ta anonymous hash slices'u kontrol edin.

Answer 2

Karma dilimi gösterimini kullanın.

@$b{"d","e"} = (1,1); 

%newdata = (d => 1, e => 1); 
@$b{keys %newdata} = values %newdata;