Hi Monks!

I am trying to make a PDF document using Perl, all its almost there( thanks to a sample code found here ), one of my issues is that I need to have a main table and inside of this table a few more tables. I am trying to pass/send these tables to the main table(inside). Its because the data coming from the database will be large and the main table needs to grow accordingly to the size of these tables been passed. Many pages will be generated. I think from the code I have here you will be able to see my nightmare. I am open for suggestions.
Thanks a lot for seeing this!
Here is the code:
#!/usr/bin/perl -w

use strict;
use PDF::API2;
use PDF::Table;

my $pdftable = new PDF::Table;
my $pdf = new PDF::API2(-file => "pdf/table-1.pdf");
   $pdf->preferences(
                      -thumbs => 1,
                );

my $page_num = 1;

my ($name_info, $city_info, $account_info, $location, $all_data);

# this data will be from a db but here it is for testing only
push @$name_info,
                     ['John', 'Carter', 'Verify', 'First and Last', 'I
+ncluded',],
                     ['John', 'Carter', 'Verify', 'First and Last', 'I
+ncluded',],
                     ['John', 'Carter', 'Verify', 'First and Last', 'I
+ncluded',],
                     ['','','','','',],
                     ;
                     
push @$city_info,    
                     ['Populated', 'Warm', 'Ocean', 'Flat', 'Winter',]
+,
                     ['','','','','',],
                     ;
                     
push @$account_info, 
                     ['Paid Acccount', 'Debt', 'Amount', '250.00', 'To
+tal',],
                     ['Paid Acccount', 'Debt', 'Amount', '250.00', 'To
+tal',],
                     ['Paid Acccount', 'Debt', 'Amount', '250.00', 'To
+tal',],
                     ['Paid Acccount', 'Debt', 'Amount', '250.00', 'To
+tal',],
                     ['Paid Acccount', 'Debt', 'Amount', '250.00', 'To
+tal',],
                     ['','','','','',],
                     ;
                     
push @$location, 
                     ['Residencial', 'Home', 'Private', 'Rent', 'Sale'
+,],
                     ['Residencial', 'Home', 'Private', 'Rent', 'Sale'
+,],
                     ['Residencial', 'Home', 'Private', 'Rent', 'Sale'
+,],
                     ['Residencial', 'Home', 'Private', 'Rent', 'Sale'
+,],
                     ['Residencial', 'Home', 'Private', 'Rent', 'Sale'
+,],
                     ['Residencial', 'Home', 'Private', 'Rent', 'Sale'
+,],
                     ['Residencial', 'Home', 'Private', 'Rent', 'Sale'
+,],
                     ['Residencial', 'Home', 'Private', 'Rent', 'Sale'
+,],
                     ['Residencial', 'Home', 'Private', 'Rent', 'Sale'
+,],
                     ['Residencial', 'Home', 'Private', 'Rent', 'Sale'
+,],
                     ['Residencial', 'Home', 'Private', 'Rent', 'Sale'
+,],
                     ['Residencial', 'Home', 'Private', 'Rent', 'Sale'
+,],
                     ['Residencial', 'Home', 'Private', 'Rent', 'Sale'
+,],
                     ['','','','','',],
                     ;

############################
my $ref_name_info_header = [ "Name Information", ];
unshift @{ $name_info }, $ref_name_info_header;
#name_info_table($pdf, \@{$name_info});
############################

############################
my $ref_city_info_header = [ "City Information", ];
unshift @{ $city_info }, $ref_city_info_header;
#city_info_table($pdf, \@{$city_info});
############################

############################
my $ref_account_info_header = [ "Account", ];
unshift @{ $account_info }, $ref_account_info_header;
#account_info_table($pdf, \@{$account_info});
############################

############################
my $ref_location_header = [ "Location", ];
unshift @{ $location }, $ref_location_header;
#location_table($pdf, \@{$location});
############################

########## MAIN TABLE HEADER#
my $ref_header =
                 ["Header 1",
                  "Header 2",
                  "Header 3",
                  "Header 4",
                  "Header 5"
                  ];
############################

#unshift @{ $location }, $ref_header; # uncommment to test
#main_table($pdf, \@{$location});     # uncommment to test

# I know this is not possible this way, but thats what I am trying to 
+do.
#push @$all_data, name_info_table, city_info_table, account_info_table
+, location_table;

unshift @{ $all_data }, $ref_header; 

main_table($pdf, \@{$all_data});


$pdf->saveas();


##########################
sub main_table {
    my $pdf  = shift;
    my $data = shift;

    my $page = newpage();  # first page

# build the table layout

$pdftable->table(
    
    # required params
    $pdf,
    $page,
    $data,
    x => 70,
    w => 650,
    start_y => 550,
    next_y  => 550,
    start_h => 500,
    next_h  => 500,
    
    # some optional params
    padding => 5,
    padding_right => 10,
    border        => 0,
    #background_color_odd  => "gray",
    #background_color_even => "lightblue", 

    new_page_func => \&newpage,  # it brigs header to other pages

    header_props => {  
                           font => $pdf->corefont("Helvetica", -encodi
+ng => "uft8"),
                           font_size  => 7,
                           font_color => '#ffffff',
                           bg_color => '#003366',
                           repeat => 1,
                        },
                        
   column_props   => [ map{{justify => 'center' }}1..5, ],
   
 ),


}
################

################
 sub newpage {

    my $page = $pdf->page;

    my $logo = "images/photo.png";
    my $image = $pdf->image_png($logo, 181, 91);
    my $gfx = $page->gfx;
    $gfx->image($image, 5, 530);

    $page->mediabox(792,612);

    page_nr($page, $page_num++);

    return $page;
}

################

################
sub name_info_table {
    
    #my $page = shift;
    my $page = $pdf->page;
    my $pdf = shift;
    my $data = shift;
  
     $pdftable->table(
         # required params
         $pdf,
         $page,
         $data,
         x => 70, # move header to the right
         w => 650,
         start_y => 550, # top od doc on page - 594
         next_y  => 550,
         start_h => 500,
         next_h  => 500,
         
        #OPTIONAL PARAMS BELOW
         padding        => 1,     # cell padding
         padding_top    => 1,    # top cell padding, overides padding
         border         => 1,     # border width, default 1, use 0 for
+ no border
         border_color   => '#ffffff', # default black
         column_props   => [ { justify => 'left' } ],
     );
}
################
################
sub city_info_table {
    
    #my $page = shift; 
    my $page = $pdf->page;
    my $pdf = shift;
    my $data = shift;
  
     $pdftable->table(
         # required params
         $pdf,
         $page,
         $data,
         x => 70, # move header to the right
         w => 650,
         start_y => 550, # top od doc on page - 594
         next_y  => 550,
         start_h => 500,
         next_h  => 500,
         
        #OPTIONAL PARAMS BELOW
         padding        => 1,     # cell padding
         padding_top    => 1,    # top cell padding, overides padding
         border         => 1,     # border width, default 1, use 0 for
+ no border
         border_color   => '#ffffff', # default black
         column_props   => [ { justify => 'left' } ],
     );
}
################
################
sub account_info_table {
    
    #my $page = shift; 
    my $page = $pdf->page;
    my $pdf = shift;
    my $data = shift;
  
     $pdftable->table(
         # required params
         $pdf,
         $page,
         $data,
         x => 70, # move header to the right
         w => 650,
         start_y => 550, # top od doc on page - 594
         next_y  => 550,
         start_h => 500,
         next_h  => 500,
         
        #OPTIONAL PARAMS BELOW
         padding        => 1,     # cell padding
         padding_top    => 1,    # top cell padding, overides padding
         border         => 1,     # border width, default 1, use 0 for
+ no border
         border_color   => '#ffffff', # default black
         column_props   => [ { justify => 'left' } ],
     );
}
################
################
sub location_table {
    
    #my $page = shift;
    my $page = $pdf->page;
    my $pdf = shift;
    my $data = shift;
  
     $pdftable->table(
         # required params
         $pdf,
         $page,
         $data,
         x => 70, # move header to the right
         w => 650,
         start_y => 550, # top od doc on page - 594
         next_y  => 550,
         start_h => 500,
         next_h  => 500,
         
        #OPTIONAL PARAMS BELOW
         padding        => 1,     # cell padding
         padding_top    => 1,    # top cell padding, overides padding
         border         => 1,     # border width, default 1, use 0 for
+ no border
         border_color   => '#ffffff', # default black
         column_props   => [ { justify => 'left' } ],
     );
}
################




################
sub page_nr {
    my $page = shift;
    my $num  = shift;

    $page->gfx->textlabel(   # PDF::API2 method
        760, 15,                           # x, y
        $pdf->corefont("Helvetica"), 8,   # font, size
        "Page $num",                       # text
        -color => '#808080',
        -align => 'right',
    );
}
#################

#################
sub get_date {
    my ($mon, $mday, $year) = (localtime)[4,3,5];
    return sprintf '%02d-%02d-%04d', $mon+1, $mday, $year+1900;
}
#################

[download]

Thanks again!

In reply to Passing values to a PDF subroutine from another subroutines help! by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.