¿Cómo reemplazar una clave hash Perl?

Question

Digamos que si tengo un hash de esta manera:

$data = { 
    'key1' => { 
       'key2' => 'value1' 
       }, 
    'key3' => { 
       'key4' => { 
          'key5' => 'value2' 
          } 
       }, 
    }; 

Ahora, ¿cómo puedo reemplazar el la tecla 'key5' con algún otro nombre clave de decir 'key6'? Sé cómo recorrer el hash & volcar los valores, pero no sé cómo reemplazar las claves o los valores en su lugar. Gracias por tu ayuda.

Answer 1

El operador delete devuelve el valor que se va a eliminar. Así que esto

$data->{key3}{key4}{key6} = delete $data->{key3}{key4}{key5} 

hará lo que usted está buscando.

Answer 2

no se puede reemplazar, pero se puede hacer un duplicado de la llave con facilidad, y luego delete() la anterior:

$data->{key3}{key4}{key6} = $data->{key3}{key4}{key5}; 
delete $data->{key3}{key4}{key5}; 

Por supuesto, usted podría hacer una subrutina bastante simple de hacer esto. Sin embargo, mi primer enfoque fue incorrecto, y necesitaría hacer un enfoque más complejo que pase en la estructura de datos para modificar y el elemento a modificar, y dado que desea elementos de varios niveles, esto puede ser difícil. Aunque si no te importa un poco de desorden:

sub hash_replace (\%$$) { 
    $_[0]->{$_[2]} = delete $_[0]->{$_[1]}; # thanks mobrule! 
} 

Entonces llamarlo:

hash_replace %{$data->{key3}{key4}}, "key5", "key6"; 

O la forma en fresco (¿Qué mejor para decir que estamos transformando "key5" en "key6" ?):

hash_replace %{$data->{key3}{key4}}, key5 => "key6"; 

(probado y funciona)

Answer 3

Este 'funciona', pero es muy difícil codificado.

#!/bin/perl -w 
use strict; 

my $data = { 
    'key1' => { 
     'key2' => 'value1' 
    }, 
    'key3' => { 
     'key4' => { 
      'key5' => 'value2' 
     } 
    }, 
}; 

print "$data->{key3}->{key4}->{key5}\n"; 

my $save = $data->{key3}->{key4}->{key5}; 
delete $data->{key3}->{key4}->{key5}; 
$data->{key3}->{key4}->{key6} = $save; 

print "$data->{key3}->{key4}->{key6}\n"; 

puede eliminar los - operadores entre los subíndices de hash, pero no el que después de '$ data' '>' - como en la solución de Chris Lutz.

Answer 4

puede usar YAML a sumergirse profundamente en su hash con un simple expresión regular:

use YAML::XS; 
my $yaml = Dump $hash; 
$yaml =~ s/key5/key6/; # may wish for global sub 
$hash = Load $yaml;