请问在perl中能设环境变量吗

yaya722611

再问大家一个问题。
就是在perl中能否直接设置环境变量。

比如在shell中：

CT="/usr/atria/bin/cleartool"
export CT

那么在perl中如何实现呢？ 多谢多谢啦

ynchnluiti

原帖由 yaya722611 于 2009-1-22 13:09 发表
再问大家一个问题。
就是在perl中能否直接设置环境变量。

比如在shell中：

CT="/usr/atria/bin/cleartool"
export CT

那么在perl中如何实现呢？ 多谢多谢啦

设置父进程环境变量？ （shell调用perl, shell是父进程，perl是子进程）

下面代码不能设置当前shell的环境变量。

1. perl -e '$ENV{"CT"}="/usr/atria/bin/cleartool";system("echo \$CT");

复制代码

'

ynchnluiti

再找找以前的帖子
如何在perl里设置系统的环境变量
http://bbs.chinaunix.net/thread-1156035-1-1.html

perl怎么调用shell脚本来设置环境变量
http://bbs.chinaunix.net/viewthread.php?tid=1117504

yaya722611

是的，我想用父进程来调用子进程：

父：test.sh:

CT="/usr/atria/bin/cleartool"
export CT

perl test11.pl

子：test11.pl:

system("CT diffbl ...");

可执行时报错： sh: CT: not found

请大家帮忙看看怎么回事啊？ 是不是不能用system?多谢啦：）

yaya722611

多谢多谢ynchnluiti (andy)

ynchnluiti

这是使用shell设置的环境变量。
cat test.sh

1. 
   
2. #!/bin/bash
   
3. 
   
4. CT="/bin/ls"
   
5. export CT
   
6. echo $CT
   
7. perl test11.pl

复制代码

cat test11.pl

1. system("\$CT *");

复制代码

./test.sh
/bin/ls
a  b  c  d  test.sh  test11.pl

yaya722611

问题解决了，真是太感谢了：）