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 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163
|
#!/usr/bin/env perl
use warnings;
use strict;
use diagnostics;
use PDF::Table;
# Please use TABSTOP=4 for best view
# -------------
# -A or -B on command line to select preferred library (if available)
# then look for PDFpref file and read A or B forms
my ($PDFpref, $rcA, $rcB); # which is available?
my $prefFile = "./PDFpref";
my $prefDefault = "B"; # PDF::Builder default if no prefFile, or both installed
if (@ARGV) {
# A or -A argument: set PDFpref to A else B
if ($ARGV[0] =~ m/^-?([AB])/i) {
$PDFpref = uc($1);
} else {
print STDERR "Unknown command line flag $ARGV[0] ignored.\n";
}
}
if (!defined $PDFpref) {
if (-f $prefFile && -r $prefFile) {
open my $FH, '<', $prefFile or die "error opening $prefFile: $!\n";
$PDFpref = <$FH>;
if ($PDFpref =~ m/^A/i) {
# something starting with A, assume want PDF::API2
$PDFpref = 'A';
} elsif ($PDFpref =~ m/^B/i) {
# something starting with B, assume want PDF::Builder
$PDFpref = 'B';
} elsif ($PDFpref =~ m/^PDF:{1,2}A/i) {
# something starting with PDF:A or PDF::A, assume want PDF::API2
$PDFpref = 'A';
} elsif ($PDFpref =~ m/^PDF:{1,2}B/i) {
# something starting with PDF:B or PDF::B, assume want PDF::Builder
$PDFpref = 'B';
} else {
print STDERR "Don't see A... or B..., default to $prefDefault\n";
$PDFpref = $prefDefault;
}
close $FH;
} else {
# no preference expressed, default to PDF::Builder
print STDERR "No preference file found, so default to $prefDefault\n";
$PDFpref = $prefDefault;
}
}
foreach (1 .. 2) {
if ($PDFpref eq 'A') { # A(PI2) preferred
$rcA = eval {
require PDF::API2;
1;
};
if (!defined $rcA) { $rcA = 0; } # else is 1;
if ($rcA) { $rcB = 0; last; }
$PDFpref = 'B';
}
if ($PDFpref eq 'B') { # B(uilder) preferred
$rcB = eval {
require PDF::Builder;
1;
};
if (!defined $rcB) { $rcB = 0; } # else is 1;
if ($rcB) { $rcA = 0; last; }
$PDFpref = 'A';
}
}
if (!$rcA && !$rcB) {
die "Neither PDF::API2 nor PDF::Builder is installed!\n";
}
# -------------
our $VERSION = '1.003'; # VERSION
our $LAST_UPDATE = '1.000'; # manually update whenever code is changed
my $outfile = $0;
if ($outfile =~ m#[\\/]([^\\/]+)$#) { $outfile = $1; }
$outfile =~ s/\.pl$/.pdf/;
my $pdftable = PDF::Table->new();
# -------------
my $pdf;
if ($rcA) {
print STDERR "Using PDF::API2 library\n";
$pdf = PDF::API2->new( -file => $outfile );
} else {
print STDERR "Using PDF::Builder library\n";
$pdf = PDF::Builder->new( -file => $outfile );
}
# -------------
my $page = $pdf->page();
$pdf->mediabox('A4');
# A4 as defined by PDF::API2 is h=842 w=545 for portrait
# some data to lay out. notice that there are 9 rows with the raw data for
# 'two' and 'four' being split up into multiple lines = multiple single rows,
# as well as 'four' being split on max_word_length
my $some_data = [
# H. dk blue on yellow, underlined (each page)
[ 'HeaderA', 'HeaderB' ],
# 1. white on red,blue underlined (page 1)
[ 'foo', 'bar Aye' ],
# 2. dk gray on light gray, underlined (page 2)
[ 'one', 'twosie' ],
# 3. light gray on dk gray, col 2 underlined, split multiple pages 3-6
[ 'two', 'four score and seven years ago our forefathers brought forth' ],
# 4. dk gray on light gray, underlined (page 7)
[ 'three', 'six pack' ],
# 5. light gray on dk gray, underlined, split multiple pages 8-9
[ 'four', 'abcdefghijklmnopqrstuvwxyz' ],
];
# build the table layout
# this will show the header and one line (row), meaning two rows will be
# split up into multiple pages
$pdftable->table(
# required params
$pdf,
$page,
$some_data,
x => 10,
w => 255,
start_y => 700, # or y
next_y => 700,
start_h => 69, # or h. just enough height for two rows per page
next_h => 69, # (repeated header + next data row single line)
# some optional params
bg_color_odd => "#666666",
bg_color_even => "#EEEEEE",
fg_color_odd => "#EEEEEE",
fg_color_even => "#666666",
padding_left => 10, # new
padding_right => 10,
border => 0, # no frame or rules (default thin line)
font_size => 20, # default leading about 25
#font_underline => 'auto', # underline everything with thin line
font_underline => [3, 2], # or underline. thick underline for all
# text (including header) unless override
max_word_length => 13, # force alphabet row to split in half
header_props => {
# font size defaults to 22, leading to 27.5
background_color => 'yellow', # or bg_color
repeat => 1 # is now default
},
cell_props => [
[], # header row no cell overrides
[ # first data row (foo bar Aye)
{ background_color => 'red', fg_color => 'white' },
{ background_color => 'blue', fg_color => 'white' }
],
[], # second data row, no cell overrides
[ # third data row, no underline first column 'two four...'
{ underline => [] } # 'none' OK for PDF::Builder
],
],
);
$pdf->save();
|