/usr/share/doc/libpdf-table-perl/examples/sample1.pl is in libpdf-table-perl 0.9.5-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 | #!/usr/bin/perl
use warnings;
use strict;
use diagnostics;
#Please use TABSTOP=4 for best view
use PDF::API2;
use PDF::Table;
my $pdftable = new PDF::Table;
my $pdf = new PDF::API2(-file => "table_of_lorem.pdf");
my $page = $pdf->page();
$pdf->mediabox('A4');
# A4 as defined by PDF::API2 is h=842 w=545 for portrait
# some data to layout
my $some_data =[
['Header',
'Row',
'Test'],
['1 Lorem ipsum dolor',
'Donec odio neque, faucibus vel',
'consequat quis, tincidunt vel, felis.'],
['Nulla euismod sem eget neque.',
'Donec odio neque',
'Sed eu velit.'],
['Az sym bulgarin',
"i ne razbiram DESI\ngorniq \nezik",
"zatova reshih
da dobavq
edin ili dva
novi reda"],
['da dobavq edin dva reda',
'v tozi primer',
'na bulgarski ezik s latinica'],
['1 Lorem ipsum dolor',
'Donec odio neque, faucibus vel',
'consequat quis, tincidunt vel, felis.'],
['Nulla euismod sem eget neque.',
'Donec odio neque',
'Sed eu velit.'],
['Az sym bulgarin',
'i ne razbiram gorniq ezik',
'zatova reshih'],
['da dobavq edin dva reda',
'v tozi primer',
'na bulgarski ezik s latinica'],
];
# build the table layout
$pdftable->table(
# required params
$pdf,
$page,
$some_data,
x => 50,
-w => 495,
start_y => 792,
next_y => 700,
-start_h => 400,
next_h => 500,
# some optional params
-padding => 3,
padding_right => 10,
background_color_odd => 'lightblue',
background_color_even => "#EEEEAA", #cell background color for even rows
header_props => {
bg_color => "#F0AAAA",
font => $pdf->corefont("Helvetica", -encoding => "utf8"),
font_size => 14,
font_color => "#006600",
repeat => 1,
},
column_props => [
{},
{
min_w => 250,
justify => "right",
font => $pdf->corefont("Times", -encoding => "latin1"),
font_size => 14,
font_color=> 'white',
background_color => '#8CA6C5',
},
],
cell_props => [
[#This is the first(header) row of the table and here wins header_props
{
background_color => '#000000',
font_color => 'blue',
},
# etc.
],
[#Row 2
{#Row 2 cell 1
background_color => '#000000',
font_color => 'white',
},
{#Row 2 cell 2
background_color => '#AAAA00',
font_color => 'red',
},
{#Row 2 cell 3
background_color => '#FFFFFF',
font_color => 'green',
},
# etc.
],
[#Row 3
{#Row 3 cell 1
background_color => '#AAAAAA',
font_color => 'blue',
},
# etc.
],
# etc.
],
);
$pdf->saveas();
|