The documentation is a little sparse, but after a
bit of digging through the sources, I've managed to come up
with something that at least looks like a barcode... :)
You probably want to play with the parameters. Good luck!
#!/usr/bin/perl
use PDF::API2;
my $pdf = PDF::API2->new();
my $page = $pdf->page();
my $gfx = $page->gfx();
my $barcode = $pdf->xo_ean13( # EAN-13 type
-code => "0123456789012", # message
-zone => 20, # size of bars
-umzn => 25, # upper "mending zone"
-lmzn => 15, # lower "mending zone"
#-quzn => 0, # quiet zone
#-ofwt => 0.5, # overflow width
-font => $pdf->corefont('Helvetica'),
-fnsz => 12, # font size
#-ext => 1, # extended character set
#-extn => '...', # barcode extension
#-text => '', # alternative text
);
$gfx->formimage($barcode, 250, 400, 1);
# x y size (scaling)
$pdf->saveas("barcode-test.pdf");
(other available types are codabar, code128,
2of5int, 3of9)
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
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, 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, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
Outside of code tags, you may need to use entities for some characters:
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.
|
|
