Perl: Jak wcisnąć klawisz/pary wartości na hashref i nadal zachowują Reference

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 

Pod koniec tego $a powinna wyglądać następująco:

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

Pod koniec tego $b powinien wyglądać następująco:

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

---

Uwaga: byłoby takie samo, jak robi:

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

---

$b = { %$b, d=>1, e=>1 }; nie jest pożądane, ponieważ tworzy kopię $a i traci odniesienie.

Answer 1

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

Po prostu odwołujesz się do anonimowego hash-ref, więc wygląda na mieszanie dla operatora przypisania.

Można nawet to zrobić:

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

W tych przypadkach %{$b} jest po prostu naprawdę komfort wizualny (choć w niektórych przypadkach może być składniowym ujednoznacznienie) dla %$b.

... czy można zrobić ...

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

Oczywiście pewnie nie zamierza przypisać wartość „1” do wszystkiego. Tak jak o kawałek:

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

Plastry są omawiane w perldoc perldata, ale naprawdę nie jest dobry opis perldoc podejmowania kawałek anonimowej hash. W tym celu musisz zapoznać się ze wszystkimi dokumentami dotyczącymi Perla na podstawie odniesień, a następnie ekstrapolować, jak zastosować to do składni segmentów. ... lub sprawdź anonymous hash slices w PerlMonks.

Answer 2

Użyj skrótu do skrótu.

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

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