Re: Move data into AoH

[VinsWorldcom]

How are you getting / generating the text file?

If the name / value pairs are separated by '=>' and the values are quoted, this can be done with something as simple as eval:

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my @array = @{eval <DATA>};
print Dumper \@array;

__DATA__
[{field1=>'value1',field2=>'value2',field3=>'value3'},{field1=>'value4
+',field2=>'value5',field3=>'value6'},{field1=>'value7',field2=>'value
+8',field3=>'value9'}]

And the output:

VinsWorldcomC:\Users\VinsWorldcom\tmp> test.pl
$VAR1 = [
          {
            'field1' => 'value1',
            'field2' => 'value2',
            'field3' => 'value3'
          },
          {
            'field1' => 'value4',
            'field2' => 'value5',
            'field3' => 'value6'
          },
          {
            'field1' => 'value7',
            'field2' => 'value8',
            'field3' => 'value9'
          }
        ];