If they are separate scripts then I cannot think of a way in which one script can pass on the telnet object to another script. if you want something like this you need to break them into modules and call the method to start the telnet process and return the telnet object. Once you get the telnet object you should be able to use it another place

. BTW, how are you doing the telnet? are you using the command 'telnet" or using a module? I would recommend Net::Telnet

-SK

update: Here is a code snippet using Net::Telnet

#!/usr/bin/perl -w

use Net::Telnet;

my $telnet;

# Your prompt setting might be different
$telnet = new Net::Telnet ( Timeout => 10, Errmode => 'die', Prompt =>
+ '/.*%/');
$telnet->open('YOUR HOSTNAME');  # Enter your host name here
print ("Please enter Username: ");
$user = <STDIN>;
print ("Please enter password: ");
$pass = <STDIN>;
$telnet->login($user, $pass); # You can hard code user/pass but here i
+ am getting getting user input to avoid typing them in.
print ($telnet->cmd('date')); # Run a command then print out the resul
+t

[download]

You can put this entire block until execution into a package/sub. Then whenever you want to execute a command you can just use the telnet object that was created.

(assuming your return it back to the caller)

In reply to Re: Perl and Telnet by sk
in thread Perl and Telnet by Leviathan7z

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.