Hello All, I am a beginner in Perl and I am trying to write a script to help automate checking on a few freebsd servers that we maintain. I have the basics down on what needs to happen with the script but I am running into an error. I must su into another user after running a few commands and once my script hits the su command the script just pauses. Below is a copy of the script I am using right now. The end result that I am looking for is to have the script run and paste the output into one txt file that lists the results for each command for each host (39 of them).

 use Net::OpenSSH;

my $ssh = Net::OpenSSH->new('root@172.16.100.27', passphrase => 'blah'
+, key_path => 'key.txt');
$ssh->error and 
    die "Couldn't establish SSH connection: ". $ssh->error;

$ssh->system('ifconfig em1');
$ssh->system('ifconfig -d');
$ssh->system('su - admin');

$ssh->system("show status");
$ssh->system('exit');
$ssh->system('exit');

[download]

In reply to OpenSSH and multiple users by judgemstr

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.