@cdarke

This worked and thank you. I had to make two small changes (noted in the code below) but I have success.

The first change was enclosing the script execution command in single quotes and the second was adding perl to the command call.

The end result is two perl scripts.

The orignal script (with updates) 

&Chg_User ($other_user);
#&Chg_Directory ($dir_location);
…
…
…
## the sub_routines below
sub Chg_User {
   #system("su -c ./script2.pl");       #from cdarke
   system("su -c 'perl script2.pl'");     #with changes
   
   #if ( $chg_result == -1) {
   #   print "wrong password: $!\n";
   #   exit (-1);
   #}
}
sub Chg_Directory {
   system (“cd”, “$_[0]”);        
}

[download]

and script2.pl (with the script for the "other_user" shell) 

   print ("Not the cOmMaNd LiNe from script2 \n");

[download]

I would like to get the IPC::ShellCmd package to see if this will eliminate the need of a second script file; however, this takes care of my needs for the day and moves me closer to my goal

Thanks to all of you.

In reply to Re^3: system commands and returns by perl_zen
in thread system commands and returns by perl_zen

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.