First time using Perl & PDF::API2
- From: gjwpp88@xxxxxxxxx (ChrisC)
- Date: Tue, 27 May 2008 07:10:59 -0700 (PDT)
Hi!,
Not sure if using PDF::API2 is a good choice or not. Little to no
doc.
In the following code I am able to create the first page ok. Not sure
I am creating the next page correctly or not, but it exist when I open
the PDF file. In the "sub paging " I create the next page, but the
script does not print in the next page. Do I have to tell it to print
on page 2? If so how?
How do I add an image, jpg etc.
Thanks,
Jerry
#!/c:\\Perl\\bin\\perl
use strict;
..
..
..
sub paging {
if( $y <= 50 ) {
$col = ( $col == 0 ) ? $colWidth : 0;
$x = 72 + $col;
$y = $ymax - 20;
$page = $pdf->page(++$page) if $col == $colWidth;
# $gfx = $page->gfx ;
$page = $pdf->openpage($page);
}
}
sub sub_header {
my $name = shift;
my $item = shift;
my $product = shift;
my $header = shift;
my $standard = shift;
print "$name*$product*\n";
$ref{ $name }{ type }[0] =~ s/20\'\/40\'/20\' 40\'/;
print FO "\n$ref{ $name }{ type }[0]$standard\n\n$header\n";
$ref{ $item }{ headersub }[ 0 ]++;
$line += 5;
paging;
$fnt = $pdf->corefont('Arial-BoldItalic',-encoding => 'latin1');
$gfx->textlabel( $x, $y -= 20, $fnt, $Mfnt, "$ref{ $name }{ type }
[0]$standard", -color=>[0.2]);
$fnt = $pdf->corefont('Arial-Bold',-encoding => 'latin1');
$gfx->textlabel( $x, $y -= 20, $fnt, $Mfnt, $header, -
color=>[0.2]);
$x = 72 + $col;
}
sub product {
my $cnt = shift;
my $c = shift;
my $product = shift;
my $name = shift;
my $org = shift;
$y -= 10;
$product =~ s/$c/X/i;
my @args = split /X/, $product;
$fnt = $pdf->corefont('Arial',-encoding => 'latin1');
foreach my $v (@args) {
next if( $cnt++ > 2 );
$v =~ s/^\s+//;
$v =~ s/\s+$//;
$v = $v."\""; # "
print FO $v." "x( 8 - length( $v ));
$line++;
paging;
$gfx->textlabel( $x, $y, $fnt, $Mfnt, $v, -color=>[0.2]);
$x += 56;
}
paging;
my ( $xx, $yy ) = split /\./, $ref{ $name }{ WtFt }{ $org }[ 0 ];
if( length( $xx) == 1 ) {
print FO " $ref{ $name }{ WtFt }{ $org }[ 0 ]\n";
$gfx->textlabel( $x, $y, $fnt, $Mfnt, " ".$ref{ $name }{ WtFt }
{ $org }[ 0 ], -color=>[0.2]);
}else{
print FO "$ref{ $name }{ WtFt }{ $org }[ 0 ]\n"; # $line\n";
$gfx->textlabel( $x, $y, $fnt, $Mfnt, $ref{ $name }{ WtFt }
{ $org }[ 0 ], -color=>[0.2]);
}
$x = 72 + $col;
$line++;
return $cnt;
}
sub shape {
my $name = shift;
my $shape = shift;
$pdf = PDF::API2->new(-file => "w:\\sku_$name.pdf");
print FO "$shape\n";
$ref{ $name }{ shape }[ 0 ] = 1;
$line++;
$pdf->mediabox( $xmax, $ymax );
$page = $pdf->page;
$fnt = $pdf->corefont('Arial-Bold',-encoding => 'latin1');
$gfx = $page->gfx;
$gfx->textlabel( $x, $y, $fnt, $Sfnt, $shape, -color=>[0.2]);
}
sub metal {
my $name = shift;
my $metal = shift;
print FO "\n$metal\n";
$ref{ $name }{ metal }[ 0 ] = 1;
$line++;
paging;
$fnt = $pdf->corefont('Arial-BoldItalic',-encoding => 'latin1');
$gfx->textlabel( $x, $y -= 20, $fnt, $Mfnt, $metal, -
color=>[0.2]);
}
.
- Prev by Date: Re: SFTP Doubts
- Next by Date: Re: Compiler in Perl
- Previous by thread: SFTP Doubts
- Next by thread: Fwd: First time using Perl & PDF::API2
- Index(es):
Relevant Pages
|
|
