Re^8: Can't use string as an ARRAY ref

Replies are listed 'Best First'.
Re^9: Can't use string as an ARRAY ref by poj (Abbot) on Aug 24, 2015 at 16:13 UTC
What are the structures returned by `get_person()`. `my ($princ, $type, $person) = get_person();` poj	[reply] [d/l] [select]
Re^9: Can't use string as an ARRAY ref by Anonymous Monk on Aug 24, 2015 at 16:36 UTC
The structures are in this format,I use "unshift" to add the header: `$VAR1 = [ [ '12345', 'MONICA', '01/01/1900', '0X10' ], [ '000001', 'MARY L', '01/01/2000', '0111P' ], [ '8884', 'JOHN M.', '01/01/1932', '0OK8' ], ]; $VAR1 = [ [ 'Main', '1900', 'Red', ], [ 'APT', '1290', 'Blue', ], [ 'AVAL', '1921', 'Green', ], ]; $VAR1 = [ [ 'Q3.0', 'OK', '1900-01-01', 'N', 'O', 'O', 'X', 'Y' ], [ '12w', 'PL', '2000-01-02', 'N', 'P', 'O', 'X', 'A' ], ];` [download]	[reply] [d/l]
Re^10: Can't use string as an ARRAY ref by poj (Abbot) on Aug 24, 2015 at 17:04 UTC
I don't mean these structure `my $princ = $just_data->{$member_number}{princ}; unshift @$princ,["Header 3a", "Header 3b", "Header 3c", "Header 3d"];` [download] I mean the ones used here `foreach my $princ_row ( @{$princ} ) { my $member_number = shift @{ $princ_row }; push ( @{ $just_data->{$member_number}{princ} }, $princ_row); }` [download] There should be member_number common to all 3 structures (princ,type,person) in the first column. It's a bit confusing having the same variable name. poj	[reply] [d/l] [select]
Re^9: Can't use string as an ARRAY ref by Anonymous Monk on Aug 24, 2015 at 18:22 UTC
Here is a sample, are these the structures you asked? $VAR1 = { 'first' => { 'princ' =>[ [ '12345', 'MONICA', '01/01/1900', '0X10' ], [ '000001', 'MARY L', '01/01/2000', '0111P' ], [ '8884', 'JOHN M.', '01/01/1932', '0OK8' ], ], 'type' =>[ [ 'Main', '1900', 'Red', ], [ 'APT', '1290', 'Blue', ], [ 'AVAL', '1921', 'Green', ], ], 'person' => [ [ 'Q3.0', 'OK', '1900-01-01', 'N', 'O', 'O', 'X', 'Y' ], [ '12w', 'PL', '2000-01-02', 'N', 'P', 'O', 'X', 'A' ], ] }, 'second' => { 'princ' =>[ [ '12345', 'MONICA', '01/01/1900', '0X10' ], [ '000001', 'MARY L', '01/01/2000', '0111P' ], [ '8884', 'JOHN M.', '01/01/1932', '0OK8' ], ], 'type' =>[ [ 'Main', '1900', 'Red', ], [ 'APT', '1290', 'Blue', ], [ 'AVAL', '1921', 'Green', ], ], 'person' => [ [ 'Q3.0', 'OK', '1900-01-01', 'N', 'O', 'O', 'X', 'Y' ], [ '12w', 'PL', '2000-01-02', 'N', 'P', 'O', 'X', 'A' ], ] } }; [download] Thanks!	[reply] [d/l]
Re^10: Can't use string as an ARRAY ref by poj (Abbot) on Aug 24, 2015 at 18:46 UTC
No, that looks like a dump of `$just_data`. I wanted a dump of these `($princ, $type, $person) = get_person();` that are used to build `$just_data`. poj	[reply] [d/l] [select]
Re^11: Can't use string as an ARRAY ref by Anonymous Monk on Aug 25, 2015 at 12:09 UTC
Hi, these are the dump of `($princ, $type, $person) = get_person();` `$VAR1 = [ [ '12345', 'MONICA', '01/01/1900', '0X10' ], [ '000001', 'MARY L', '01/01/2000', '0111P' ], [ '8884', 'JOHN M.', '01/01/1932', '0OK8' ], ]; $VAR1 = [ [ 'Main', '1900', 'Red', ], [ 'APT', '1290', 'Blue', ], [ 'AVAL', '1921', 'Green', ], ]; $VAR1 = [ [ 'Q3.0', 'OK', '1900-01-01', 'N', 'O', 'O', 'X', 'Y' ], [ '12w', 'PL', '2000-01-02', 'N', 'P', 'O', 'X', 'A' ], ];` [download]	[reply] [d/l] [select]
Re^12: Can't use string as an ARRAY ref by poj (Abbot) on Aug 25, 2015 at 13:38 UTC
Re^13: Can't use string as an ARRAY ref by Anonymous Monk on Aug 25, 2015 at 15:48 UTC
Some notes below your chosen depth have not been shown here

What are the structures returned by get_person().
my ($princ, $type, $person) = get_person();
poj

$VAR1 = [

           [
             '12345',
             'MONICA',
             '01/01/1900',
             '0X10'
           ],
           [
             '000001',
             'MARY L',
             '01/01/2000',
             '0111P'
           ],
           [
             '8884',
             'JOHN M.',
             '01/01/1932',
             '0OK8'
           ],
    ];

$VAR1 = [

           [
             'Main',
             '1900',
             'Red',
           ],
           [
             'APT',
             '1290',
             'Blue',
           ],
           [
             'AVAL',
             '1921',
             'Green',
           ],
    ];


$VAR1 = [

          [
            'Q3.0',
            'OK',
            '1900-01-01',
            'N',
            'O',
            'O',
            'X',
            'Y'
          ],
          [
            '12w',
            'PL',
            '2000-01-02',
            'N',
            'P',
            'O',
            'X',
            'A'
          ],
    ];
[download]

[reply]
[d/l]

I don't mean these structure

my $princ = $just_data->{$member_number}{princ};
unshift @$princ,["Header 3a", "Header 3b", "Header 3c", "Header 3d"];
[download]

I mean the ones used here

foreach my $princ_row ( @{$princ} ) {
  my $member_number = shift @{ $princ_row };
  push ( @{ $just_data->{$member_number}{princ} }, $princ_row);
}
[download]

There should be member_number common to all 3 structures (princ,type,person) in the first column.
It's a bit confusing having the same variable name.

[reply]
[d/l]
[select]

$VAR1 = {
          'first' => {

                  'princ' =>[

           [
             '12345',
             'MONICA',
             '01/01/1900',
             '0X10'
           ],
           [
             '000001',
             'MARY L',
             '01/01/2000',
             '0111P'
           ],
           [
             '8884',
             'JOHN M.',
             '01/01/1932',
             '0OK8'
           ],
    ],
      'type' =>[

           [
             'Main',
             '1900',
             'Red',
           ],
           [
             'APT',
             '1290',
             'Blue',
           ],
           [
             'AVAL',
             '1921',
             'Green',
           ],
    ],
    'person' => [

          [
            'Q3.0',
            'OK',
            '1900-01-01',
            'N',
            'O',
            'O',
            'X',
            'Y'
          ],
          [
            '12w',
            'PL',
            '2000-01-02',
            'N',
            'P',
            'O',
            'X',
            'A'
          ],
    ]
   },
   'second' => {

                  'princ' =>[

           [
             '12345',
             'MONICA',
             '01/01/1900',
             '0X10'
           ],
           [
             '000001',
             'MARY L',
             '01/01/2000',
             '0111P'
           ],
           [
             '8884',
             'JOHN M.',
             '01/01/1932',
             '0OK8'
           ],
    ],
      'type' =>[

           [
             'Main',
             '1900',
             'Red',
           ],
           [
             'APT',
             '1290',
             'Blue',
           ],
           [
             'AVAL',
             '1921',
             'Green',
           ],
    ],
    'person' => [

          [
            'Q3.0',
            'OK',
            '1900-01-01',
            'N',
            'O',
            'O',
            'X',
            'Y'
          ],
          [
            '12w',
            'PL',
            '2000-01-02',
            'N',
            'P',
            'O',
            'X',
            'A'
          ],
    ]
   }

   };
[download]

[reply]
[d/l]

No, that looks like a dump of $just_data. I wanted a dump of these ($princ, $type, $person) = get_person(); that are used to build $just_data.

[reply]
[d/l]
[select]

($princ, $type, $person) = get_person();

$VAR1 = [

           [
             '12345',
             'MONICA',
             '01/01/1900',
             '0X10'
           ],
           [
             '000001',
             'MARY L',
             '01/01/2000',
             '0111P'
           ],
           [
             '8884',
             'JOHN M.',
             '01/01/1932',
             '0OK8'
           ],
    ];

$VAR1 = [

           [
             'Main',
             '1900',
             'Red',
           ],
           [
             'APT',
             '1290',
             'Blue',
           ],
           [
             'AVAL',
             '1921',
             'Green',
           ],
    ];


$VAR1 = [

          [
            'Q3.0',
            'OK',
            '1900-01-01',
            'N',
            'O',
            'O',
            'X',
            'Y'
          ],
          [
            '12w',
            'PL',
            '2000-01-02',
            'N',
            'P',
            'O',
            'X',
            'A'
          ],
    ];
[download]

[reply]
[d/l]
[select]