in reply to Re^6: Can't use string as an ARRAY ref
in thread Can't use string as an ARRAY ref

my ($third_pdf, $third_page,undef,$third_y) = make_table(
  pdf => $sec_pdf,
  #page => $page,
  data  => $princ->[$i],
  title => "More Header 5",
  pol_y => "",
  doc_name => $member_number,
);

[download]
$princ->[$i] is a single row of data not a block of data.
poj

Replies are listed 'Best First'.
Re^8: Can't use string as an ARRAY ref
by Anonymous Monk on Aug 24, 2015 at 15:31 UTC
    I know, and that is the nature of my problem, I just don't don how to get around that.
[reply]

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

[reply]
[d/l]
[select]
      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]

        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]
      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]

        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]

In Section Seekers of Perl Wisdom