Taquigrafía para agregar nuevos valores a un hash de matrices

Question

A continuación se muestra una generalización de un bloque de código que sigo teniendo que escribir cuando quiero construir un hash de matrices dentro de una especie de bucle.

#get value and key that I want to use 
my $value = getvalue(); 
my $key = getKey(); 

#add value to hash using key 
if($hash_of_arrays{$key}){ 
    push(@{$hash_of_arrays{$key}}, $value); 
} 
else{ 
    $hash_of_arrays{$key} = [$value]; 
} 

La sentencia if es muy tedioso de escribir para una tarea tan simple, pero hay que hacer, ya que empuja un valor cuando su llave no está definida en el hash causa problemas. Me pregunto si hay alguna abreviatura para escribir esto, una donde no tengo que escribir $hash_of_arrays{$key} tres veces.

Answer 1

push @{ $HoA{$key} }, $value; funciona perfectamente bien y es lo que se recomienda hacer. Si su código que lo usa tiene "problemas", entonces pregunte sobre esos problemas.

Answer 2

Intuitivamente, cuando te encuentres repitiendo el código, crea una función o un objeto que haga esto por ti.

Sin embargo, para este caso específico, es posible que desee comprobar Perl Recipe 13.15: Tie Example: Make a Hash That Always Appends. Puede asignarle un valor al hash y lo agregará automágicamente al arreglo subyacente.