Perl: cómo empujar clave/valor par en hashref y aún conservan referencia

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 

Al final de la misma $a debe verse como:

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

Al final de la misma $b debería verse como:

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

---

Nota: sería lo mismo que hacer:

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

---

$b = { %$b, d=>1, e=>1 }; no se desea, ya que crea una copia de $a y pierde la referencia.

Answer 1

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

Simplemente des-referencia el hash-ref anónimo para que parezca un hash al operador de asignación.

Incluso se puede hacer esto:

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

En estos casos %{$b} es realmente una mayor comodidad visual (aunque en algunos casos puede ser un desambiguación sintáctica) para %$b.

... o usted podría hacer ...

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

Obviamente probablemente no estás con la intención de asignar el valor de '1' a todo. Entonces, ¿cómo sobre una rebanada:

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

Los sectores se discuten en perldoc perldata, pero no hay realmente una buena descripción perldoc de tomar una rebanada de un hash anónimo. Para eso, debe llegar a un acuerdo con toda la documentación de Perl sobre referencias, y luego extrapolar cómo aplicar eso a la sintaxis de corte. ... o marque anonymous hash slices en PerlMonks.

Answer 2

Usa la notación de división hash.

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

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