Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re^3: How to "source" a shell file in Perl?

by LanX (Bishop)
on Jun 12, 2013 at 19:40 UTC ( #1038565=note: print w/replies, xml ) Need Help??


in reply to Re^2: How to "source" a shell file in Perl?
in thread How to "source" a shell file in Perl?

That was my idea.

Actually you could call a wrapper-shell-script which sources and calls a second perl-script.

The perl-script use Data::Dumper to serialize %ENV and prints the string to STDOUT.

opening the shell script with "wrapper.sh |" should be sufficent to grab the dump.

the second perl-script might look overhead but it's cleaner and you don't need to worry about k/ba/c-sh compatibilities and about JSON.

Cheers Rolf

( addicted to the Perl Programming Language)

) open

and if the filename ends with a '|', the filename is interpreted as a comma +nd which pipes output to us.
...
For three or more arguments if MODE is '|-', the filena +me is interpreted as a command to which output is to be piped +, and if MODE is '-|', the filename is interpreted as a command +which pipes output to us.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1038565]
help
Chatterbox?
[shmem]: but that would mean, also, to drop the "use" not allowed in expression abomination, and make use actually return something useful (as does require at the first call, accidentally)

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (13)
As of 2017-11-21 17:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:













    Results (306 votes). Check out past polls.

    Notices?