Question

I have a program in Perl I’m working on where I would need multiple keys, and a way of giving each key multiple values and follow that by being able to both read them in and write them out to an external file depending on if the key matches what the person enters into standard input. I’ve looked across several sites and have found information somewhat useful in reading in hashes of arrays, but not writing them out, and I would also need to be able able to add to the array in the external file.

Is this possible?

Edit: Is there a way that it could be done with starter Perl? I’m a beginner. Hashes of arrays seemed like the best way to make it work, but what I really need is a way to show multiple values for the same key while only showing the key once.

Answer 1

Check out Data::Dumper.

For instance, this microscopic script:

#!/bin/perl -w use strict; use Data::Dumper;  my(%hash);  $hash{key1} = [ 1, 'b', 'c' ]; $hash{key2} = [ 4.56, 'g', '2008-12-16 19:10 -08:00' ];  print Dumper(\%hash); 

produces this output, which could clearly be edited:

$VAR1 = {           'key2' => [                       '4.56',                       'g',                       '2008-12-16 19:10 -08:00'                     ],           'key1' => [                       1,                       'b',                       'c'                     ]         }; 

It can also be evaluated to read the data back into the program.

---

Extending the example to show reading in as well as printing out…Note that the code is in two main blocks, and the only variable common between the blocks is the name of the file.

#!/bin/perl -w use strict; use Data::Dumper; use FileHandle;  my $file = 'data.out';  {     my(%hash);      $hash{key1} = [ 1, 'b', 'c' ];     $hash{key2} = [ 4.56, 'g', '2008-12-16 19:10 -08:00' ];      my $str = Data::Dumper->Dump([ \%hash ], [ '$hashref' ]);     print 'Output: $str';      my($out) = new FileHandle '>$file';     print $out $str;     close $out; }  {     my($in) = new FileHandle '<$file';     local($/) = '';     my($str) = <$in>;     close $in;      print 'Input: $str';      my($hashref);     eval $str;     my(%hash) = %$hashref;      foreach my $key (sort keys %hash)     {         print '$key: @{$hash{$key}}\n';     } } 

The output from that script is:

Output: $hashref = {          'key2' => [                      '4.56',                      'g',                      '2008-12-16 19:10 -08:00'                    ],          'key1' => [                      1,                      'b',                      'c'                    ]        }; Input: $hashref = {          'key2' => [                      '4.56',                      'g',                      '2008-12-16 19:10 -08:00'                    ],          'key1' => [                      1,                      'b',                      'c'                    ]        }; key1: 1 b c key2: 4.56 g 2008-12-16 19:10 -08:00 

---