在perl中得到sh中变量的值

有个shell中设置了很多变量，在perl中运行这个sh，我想在perl中得到变量的值。该怎么办？请指教。。
如下：
1. common.csh中内容：
set test1=a
set test2=$test1/a
set test3=$test2/b
.....................

2. SyncTest.pl中的内容：
#!/usr/bin/perl
exec(`source aacommon.csh`);
print $test3;

3.运行SyncTest.pl，不输出结果，该如何做，在线等。。

你可以在 common.csh 的末尾调用 SyncTest.pl。
不过从它的名字上来看，似乎并不适合这么做，那么你应该创建一个新的
foo.csh，然后写入：


然后在 SyncTest.pl 中访问 %ENV 这个散列。
最后调用 foo.csh 就可以了。

source common.csh
perl SyncTest.pl
然后在 SyncTest.pl 中访问 %ENV 这个散列。


上述写法和这样写不一样吗？
exec(`source aacommon.csh`);
print %ENV;#得到的是系统的环境变量

一样不一样，你试试不就知道了？
如果你要坚持认为一样，那便是一样了。

自己搞不定来问别人，
别人告诉你你又不相信。
那么有主意就不要来问人嘛。

不是我不试就说，这两个文件（syncTest.pl和common.csh）是一定了，不要求在加一个中间的（foo.csh），见谅！

那就把 syncTest.pl 的内容改成：


如果连 syncTest.pl 的扩展名都不能改成 .sh 的话，就仍然叫 syncTest.pl 好了。否则还是叫 syncTest.sh 比较好。