The code is to fetch data after executing commands from windows machine to network devices.Am getting the result but the problem is have to outfile it as pdf. I done but only first line are printed and other content are not saved in that.I need to put all the content and save it as pdf format. Any help plz.

#!/usr/bin/perl
use strict;
use warnings;

use Net::Ping;
use Net::SSH2;
use PDF::API2; 

#************set pdf***************
my $save_pdf_as="mypdf.pdf";
    # Create a blank PDF file
my    $pdf = PDF::API2->new();
    # Add a blank page
my    $page = $pdf->page();
    # Set the page size
    $page->mediabox('Letter');
    # Add a built-in font to the PDF
my    $font = $pdf->corefont('Helvetica-Bold');


#************ssh module***************
my $ssh = Net::SSH2->new();
my $username="username";
my $password="password";
my $ip_address = ("ipaddress");
my $ping= Net::Ping->new();

if($ping->ping($ip_address))
{
    if($ssh->connect($ip_address))
    {
        if($ssh->auth_password($username,$password))
        {
            my $chan = $ssh->channel();
            $chan->blocking(1);
            $chan->shell();
            $chan->write("terminal length 0\n");
            $chan->write("show ip interface brief \n");

          my   $text = $page->text();
    $text->font($font, 20);
    $text->translate(200, 700);
  
          while (<$chan>)
              {
                   if (/\bterminal length\b/i .. /^\n*$/)
                {
                print;
                        $text->text($_);
                }
             
              }
              $pdf->saveas($save_pdf_as);

        }
        else
        {
            print "auth failed";
        }
    }
}
else {
    print "not pinging";
}

[download]

In reply to download an array of text as pdf by ajaykannan

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • 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, details, 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, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.