小弟想问个变量替换的问题

pirpir

想从mysql上获取到一个变量，比如叫做ls @hdd[0], 然后在远程机器上执行。

但是@hdd[0]没有被替换成它的值，而是就是一个字符串的形式传过去的。

现在不知道怎么办了。

hp_truth

回复 1# pirpir


不清楚你的意思， 你是想从数据库中取出一个命令，然后到远程机器上执行对吧？
你本来的命令是什么样的呢？ 不知道是你描述得不够清楚还是我没看懂， 赫赫。

yybmsrs

你是怎么替换的

pirpir

to hp_truth.别说你，我自己都没有看懂。你说的没错，我再描述一下：

是这样的，我用

我在sql服务器上存了一个指令“hdddisplay @hdd_r[0]"

想用perl把指令取过来，然后执行，之前@hdd_r有赋值，为(hdd1,hdd2,hdd3,hdd4)；

在单纯的perl脚本下，@hdd_r[0]会被替换，但是从sql那边去过来的值不会被替换。

hu145165

@hdd_r[0] 改成$hdd_r[0]

pirpir

回复 5# hu145165


恩，改了。还是没有用。

说说我是怎么用的，执行代码通过sql存在@array_ref，然后把它们一条一条分在@telcmd中，此时$telcmd[0]就是“hdddisplay $hdd_r[0]
”，最后扔到telnet上去执行。

1. while (@array_ref = $sth->fetchrow_array())
   
2. {
   
3. #print $array_ref[1];
   
4. @telcmd = split /;/ ,$array_ref[4];
   
5. #foreach $telcmd (@telcmd)
   
6. #{
   
7. print "$telcmd[0]\n";
   
8. @la = $t->cmd($telcmd[0]);
   
9. ##@la = $t->cmd("hdddisplay @hdd_r[0]");
   
10. ##print "$telcmd\n";
    
11. print "@la\n";
    
12. #}
    

复制代码

yybmsrs

执行前加个my $cmd = eval($telcmd[0]);

$telcmd[0] = 'hdddisplay $hdd_r[0]'是不能执行的

hu145165

你最好dump一下@telcmd里面的东西，看看你的东西是否得到。

1. 
   
2. use Data::Dump qq/dump/;
   
3. dump \@telcmd;
   

复制代码

看看打印出来的结构是什么样的。。
都不知道你split 有没有成功

hu145165

回复 7# yybmsrs


    何必eval 他用的是双引号，应该没有问题的。要么就定义一个中间变量 要么就用.运算符把变量连接起来

yybmsrs

回复 9# hu145165


    'hdddisplay $hdd_r[0]'数组里面的值是这样，双引号是他自己加的