in reply to Source command in perl script

What's wrong with running it in the apropriate shell?
ie. /bin/sh /home/db2inst1/sqllib/db2profile

print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."

Replies are listed 'Best First'.
Re^2: Source command in perl script
by bannaN (Acolyte) on Oct 20, 2011 at 09:08 UTC
    Have the script like this? 
    `/bin/sh /home/db2inst1/sqllib/db2profile`;
system("db2 terminate");

    [download]
    If i try to run something like this, the db2 command will not be recognized.
    Error: "Can't exec "db2": No such file or directory"

    So if i understood you correctly that doesnt work for some reason. As you may have understood i am not that into the logic of how different shells acquire their environment, and pass it on.
    Am i right in the assumption that the system command will fork and inherit the environment from the perl script?
    If i am, the question still stands, how can i make the perl script acquire the db2 environment
[reply]
[d/l]
      A parent process cannot inherit from a process it spawns.

      You can however set the environment within the Perl script and then the system call will inherit it or you could run the db2profile scipt prior to running the Perl script and then everything would inherit it.

      Rewriting as Perl

      $ENV{PATH}="$ENV{PATH}:/opt/db2/bin"
...

      [download]
      Or calling everything from a shell script...
      #!/bin/sh
. /home/db2inst1/sqllib/db2profile 
/home/db2instl/bin/stop_db.pl # Or whatever the script is called

      [download]

      print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."
[reply]
[d/l]
[select]
[reply]

In Section Seekers of Perl Wisdom