Thank you for providing me with better and more efficient methods on file side, i see what you've done and i didn't even think of passing arguments to the subrouting instead. And the links, will give them a read.

But on the looping of the ssh interact is where im stuck

The script automatically logs into the device and hands the ssh over to the user with the interact method. They then can press its escape seq of cntrl + A which quits the interact and prints a statement. The user is then put back into the interact because of the loop. They only exit this loop when the user enters logout|quit|exit.


If i were to simply use a print statement like... 
while($session){
$session->exp->interact(\*STDIN,"\cA");
##save logfile to var
my $exit = qx(cat $showlog);
##check logfile for exit strings
    if ($exit =~ /exit|quit|logout|Inactivity/){
    print colored("logfile:$showlog\n",'yellow');
#kill session
    die;
    }
print "\njohn\nsmith";
}

[download]
in the while loop i would still get output like.. 
networks>
          john
              smith
networks>
john
smith
networks>

[download]

Thought it could be buffering and tried flushing them, but no use

In reply to Re: wierd output by oldirtysingh
in thread wierd output by oldirtysingh

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.