Re^5: read hash table from a subroutine or retrieve previously stored hash table from a file

Your expected output does not show arrays of values. It shows single scalar values. So your question does not make sense to me. I must be missing something.

Let me analyze how the code aligns with your stated goals in more detail -- on the surface it simply seemed like you wanted scalar but were storing arrays.

Comment on Re^5: read hash table from a subroutine or retrieve previously stored hash table from a file

Replies are listed 'Best First'.
Re^6: read hash table from a subroutine or retrieve previously stored hash table from a file by marinersk (Priest) on Nov 23, 2013 at 14:43 UTC
Okay, finally got some time to look at this. The full explanation is hidden behind the `<readmore>`tag. Read more... (14 kB) Summary: Making the following changes: `chomp $line; $line =~ s/\s*\z//; my @array_CSV = split /,/, $line; my ($key_CSV, $value_CSV, @extraStuff) = @array_CSV; if ($hash{$key_CSV}) { warn "Duplicate key '$key_CSV'"; }; $hash{$key_CSV} = $value_CSV;` [download] Produces: `C:\Steve\Dev\PerlMonks\P-2013-11-23@0553-Hash>perl testhash2.pl test.c +sv Number of Pins: 6 Stored 6 list of pins in test_RX.csv file. AVD0 => Group4 SIDDQ => Group7 C_WREN => Group1 CAL_CLK => Group1 REF_RATE[9:0] => Group3 RX_IBIAS_2_25U[4:0] => Group3` [download] Note: The `@extraStuff`is superfluous, left in for example purposes. So, unless I'm missing something, it looks like all you had to do was store the value instead of the array reference. Holler if this isn't what you were looking for.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^6: read hash table from a subroutine or retrieve previously stored hash table from a file
by marinersk (Priest) on Nov 23, 2013 at 14:43 UTC

The full explanation is hidden behind the <readmore>tag.

Read more... (14 kB)

Summary: Making the following changes:

          chomp $line;
          $line =~ s/\s*\z//;
          my @array_CSV = split /,/, $line;
          my ($key_CSV, $value_CSV, @extraStuff) = @array_CSV;
          if ($hash{$key_CSV})
          {
               warn "Duplicate key '$key_CSV'";
          };
          $hash{$key_CSV} = $value_CSV;
[download]

Produces:

C:\Steve\Dev\PerlMonks\P-2013-11-23@0553-Hash>perl testhash2.pl test.c
+sv
Number of Pins: 6
Stored 6 list of pins in test_RX.csv file.
AVD0 => Group4
SIDDQ => Group7
C_WREN => Group1
CAL_CLK => Group1
REF_RATE[9:0] => Group3
RX_IBIAS_2_25U[4:0] => Group3
[download]

Note: The @extraStuffis superfluous, left in for example purposes.

So, unless I'm missing something, it looks like all you had to do was store the value instead of the array reference.

Holler if this isn't what you were looking for.

[reply]
[d/l]
[select]