¿Cómo cargo un archivo en un hash Perl?

Question

Dado el siguiente archivo:

department=value1 
location=valueA 
location=valueB 
department=value2 

utilizo el siguiente para cargar el archivo en un hash de Perl:

use File::Slurp; 
use Data::Dumper; 
my %hash = map { 
    s/#.*//; 
    s/^\s+//; 
    s/\s+$//; 
    m/(.*?)\s*=\s*(.*)/; 
} read_file($file); 
print Dumper(\%hash); 

El resultado, sin embargo, es el siguiente:

$VAR1 = { 
      'location' => 'valueB', 
      'department' => 'value2' 
     }; 

¿Cómo puedo cargar el archivo anterior en un hash con, por ejemplo,

$VAR1 = { 
      'location' => 'valueA,valueB', 
      'department' => 'value1,value2' 
     }; 

Gracias.

Answer 1

Aquí van:

my %hash; 
while (<FILE>) 
{ 
    chomp; 
    my ($key, $val) = split /=/; 
    $hash{$key} .= exists $hash{$key} ? ",$val" : $val; 
} 

Esta guía a través de cada división de línea en el signo '=' y, o bien se añade una entrada o añade a una entrada existente en la tabla hash.

Answer 2

¿Puede agregar algún código a la función del mapa para verificar la existencia de una entrada hash y agregar el nuevo valor?

No he usado Perl por un tiempo, pero cuando hice algo como esto en el pasado, leo el archivo en línea por línea (mientras $ inputLine = <ARCHIVO>) y uso split en '=' para cargue el hash con comprobaciones adicionales para ver si el hash ya tenía esa clave, anexando si la entrada ya existía.

Answer 3

Si tiene control sobre el archivo de datos, considere cambiar de un formato personalizado a algo así como YAML. Esto le proporciona una gran cantidad de energía sin tener que hackear su formato personalizado cada vez más. En particular, las claves múltiples que crean una lista no son obvias. La forma de hacerlo de YAML es mucho más clara.

name:  Wally Jones 
department: [foo, bar] 
location: [baz, biff] 

Tenga en cuenta también que YAML le permite esculpir los pares de clave/valor para que se alineen para facilitar la lectura.

Y el código para analizarlo se hace por un módulo, YAML::XS siendo el mejor del grupo.

use File::Slurp; 
use YAML::XS; 
use Data::Dumper; 

print Dumper Load scalar read_file(shift); 

Y la estructura de datos se ve así:

$VAR1 = { 
      'department' => [ 
          'foo', 
          'bar' 
          ], 
      'location' => [ 
          'baz', 
          'biff' 
         ], 
      'name' => 'Wally Jones' 
     };