Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re^2: system commands and returns

by perl_zen (Initiate)
on Nov 30, 2011 at 14:55 UTC ( #940876=note: print w/replies, xml ) Need Help??


in reply to Re: system commands and returns
in thread system commands and returns

@cdarke

I will test this out after a morning meeting and give an update on success or failure later today.

BTW, I noticed that problem with  sub Chg_Directory last night while attempting more testing.

Replies are listed 'Best First'.
Re^3: system commands and returns
by perl_zen (Initiate) on Nov 30, 2011 at 18:02 UTC
    @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]”); }

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

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

    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.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://940876]
help
Chatterbox?
[Corion]: Hi marto!
[Corion]: I hope all is well marto! ;) My godson had a surprise visit to the hospital yesterday because he fell and had cut his skin besides his eye, but everything was glued together again and all is well
[marto]: good grief, that's not fun, glad to hear all is as well as could be :)
[Corion]: marto: Yeah - their mother picked all three of them up at the kindergarden to then go to the hospital, and all three of them were well behaved, and all also were quite obedient when they came home, so they recognized the situation

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (8)
As of 2016-12-08 09:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (137 votes). Check out past polls.