tcf22 has asked for the wisdom of the Perl Monks concerning the following question:
I don't even know if this is possible, but hopefully it is. This script needs to run on Win32 and Win64.
I need to run a perl script from a shell and change the environment of the shell.
I tried
I have also tried using Win32::Process::Info to get the parent PID(hopefully there is an easier way).
Thanks.
I tried
but that has no effect on the parent as I would suspect.system("set VAR=5");
I have also tried using Win32::Process::Info to get the parent PID(hopefully there is an easier way).
but I don't know what to do with the parent PID to chenge the environment.use Win32::Process::Info; my $pi = Win32::Process::Info->new (); my %subs = $pi->Subprocesses(); my $ParentPID; foreach(keys %subs) { foreach my $pid(@{$subs{$_}}) { if( $pid == $$ ) { print "Parent PID is $_\n"; $ParentPID = $_; } } } my @info = $pi->GetProcInfo($ParentPID); use Data::Dumper; print Dumper \@info;
Thanks.
- Tom
Back to
Seekers of Perl Wisdom