#!/usr/bin/perl -w
use Net::Telnet;
use strict;
my ($connect,@lines,$lineid,$identifier);
 
$connect = new Net::Telnet (Timeout => 10, Input_log => 'telnet.log',H
+ost => 'myhost', Prompt => '/[#>].*$/');
$connect->waitfor('/password[: ]*$/i');
$connect->print("mypass");
$connect->cmd("term len 0");
$connect->getline;
$connect->cmd(String => 'show ip bgp summary',Timeout => '10');
$connect->getline;
$identifier = $connect->getline;
$lineid = 0;
while ($lineid != 11) {
        $connect->getline;
        $lineid++;
}
@lines = $connect->getlines(Timeout => '30');
my ($key,$neighbor,$version,$as,$msgrcvd,$msgsent,$tblver,$inq,$outq,$
+uptime,$state,%neighbors,$hold);
for $key (@lines) {
        ($neighbor,$version,$as,$msgrcvd,$msgsent,$tblver,$inq,$outq,$
+uptime,$state) = split(/\s+/,$key);
        $neighbors{$neighbor} = [$as,$msgrcvd,$msgsent,$tblver,$inq,$o
+utq,$uptime,$state];
}
print "$identifier\n";
for $hold (keys %neighbors) {
        print "$hold: @{$neighbors{$hold}}\n";
}
sleep('5');
$connect->close;
#
#
#
Snippet

$lineid = 0;
while ($lineid != '20') {
        $linedata = $connect->getline;
        push(@data,$linedata);
        next unless eof;
        $lineid++;
}

[download]
Hmm....on the @lines = $connect->getlines part....i'm only getting the first 4-5 lines....the second snippet of code fixes it...but i don't know how to break the loop looking for eof or timeout...doc makes mention...but hey what can i say...my signature says it all :>) 
my $experience = "nonexistent";
my $thoughts = "worthless";
unless ($experience) { print "You're $thoughts\n"; }

[download]

In reply to Net::Telnet disappearing data :) by DesolateCoder

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.