How to source shell scrpts in perl?

wzknew

最近需要把一个shell 的主程序转成perl。 其中一个设环境变量的shell script 需要source 到perl中。 用了cpan的shell::source module。 可是，居然导致我的perl package 中所有的system call 或者 backticks ` ` 报错。但是，程序也运行出了正确结果。不知各位有无解决办法？谢谢。

下面是程序打印出的运行错误：

before shell call:
Command use:  $NF=`ls ${msd_dir}/*${filename}.* | wc -l`；

sh: module: line 1: syntax error: unexpected end of file
sh: error importing function definition for `module'
$NF: 2

After shell call

cecial

用%ENV hash可以me

wzknew

我就是想知道怎么才能source shell 到 %ENV hash呀？

回复 2# cecial


   

cecial

我的意思是直接定义

wsxedcer

蛋蛋疼，直接把shell整个用perl重写不直接点

wzknew

可是，这个。。。不太现实，这是一个大软件包中的一个，其他人也在用。最好是不要动它。

wsxedcer 发表于 2013-01-31 16:49
蛋蛋疼，直接把shell整个用perl重写不直接点