Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re^2: Print to PDF

by PilotinControl (Monk)
on Jun 11, 2013 at 19:27 UTC ( #1038333=note: print w/ replies, xml ) Need Help??


in reply to Re: Print to PDF
in thread Print to PDF

Removing the $y = 760; has no effect


Comment on Re^2: Print to PDF
Re^3: Print to PDF
by poj (Priest) on Jun 11, 2013 at 19:55 UTC
    With prFile('data.pdf') being within the loop, a new document is being created at every line. This is how I think it should look ;
    #!/usr/bin/perl use PDF::Reuse; use strict; use warnings; printinterrr(); sub printinterrr { open(MYINPUTFILEONE, "data.txt"); $| = 1; my @linesone = <MYINPUTFILEONE>; # read file into list close (MYINPUTFILEONE); printf (" =================\n\n"); printf (" | VERIFY NAME |\n\n"); printf (" =================\n\n"); printf (" \n\n"); printf (" PLEASE INSERT NAME TO VERIFY:\n\n"); printf (" \n\n\n\n\n\n\n\n"); my $interrrverify = <STDIN>; $interrrverify = <STDIN> until defined $interrrverify; chomp($interrrverify); printf (" ========================================\n\n"); printf (" | NAME | NUMBER | TYPE | OWNER | INTER |\n\n"); printf (" ========================================\n\n\n"); my $found = 0; my $pageTop = 800; my $pageBottom = 40; my $x = 35; # Left margin my $y = 760; my $step = 10; # Distance between lines (fontsize = 12) prFile('data.pdf'); prCompress(1); # Compress streams prFont('Times-Roman'); prText(50, 800, "======================================="); prText(50, 790, "NAME NUMBER TYPE OWNER INTER"); prText(50, 780, "======================================="); + my $format = " %-13s %-15s %-11s %-10s %0s\n"; foreach my $interrrverify2 (@linesone) { my @fieldone = split(":", $interrrverify2); if ($fieldone[4] =~ /(?<![\w-])$interrrverify(?![\w-])/i) { printf ($format, $fieldone[0], $fieldone[1], $fieldone[2], $fiel +done[3], $fieldone[4]); prText(50, $y, "$fieldone[0]"); prText((50 + 90), $y, "$fieldone[1]"); prText((50 + 195), $y, "$fieldone[2]"); prText((50 + 272), $y, "$fieldone[3]"); prText((50 + 335), $y, "$fieldone[4]"); $found =1; if ($y < $pageBottom) { prPage(); $y = $pageTop; } else { $y -= $step; } } } # END FILE LOOP prEnd; } sleep 10;
    Note the prEnd is also outside the loop.
    poj

      Thanks POJ! That worked nicely. The prEnd outside of the loop worked I do keep forgetting to end a loop when a section has been executed. Thanks again POJ!

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1038333]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (8)
As of 2015-07-02 21:38 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (45 votes), past polls