+ -
当前位置:首页 → 问答吧 → perl 如何向 tcl 传递变量

perl 如何向 tcl 传递变量

时间:2010-11-01

来源:互联网

用perl做了一个wrapper, 里面调用了一个tcl,现在希望从perl向tcl传递一个变量。不知道该如何做
好像tcl里面是:env()的写法。

请帮忙看看。

作者: tbb2010   发布时间: 2010-11-01

没用过TCL。。shell也差不多吧。。
  1. $ cat t1.sh
  2. echo $1

  3. $ perl -e '$var=123; system("sh t1.sh $var");'
  4. 123
复制代码

作者: 兰花仙子   发布时间: 2010-11-01

原来默认表情有4页的,怪不得我找不到 -> 这个

不知道tcl怎么传的,理解为靠环境变量传参数。
发个 win 下的测试代码
  1. perl -e "$ENV{'to_tcl'} = 'hello, world'; system 'set to_tcl'"
复制代码
输出
  1. to_tcl=hello world
复制代码

作者: zhlong8   发布时间: 2010-11-01