perl 从文件里读出变量无法使用解决办法
最近在写一个perl函数,把test case 放到配置文件里,读出来然后使用system运行。
我的本意是:
配置文件conf
ping -c $count $ip #在主程序中定义$ip和$count
从配置文件中拿出这句ping -c $count $ip 将其在system中执行,其中事先定义好$count=10 $ip="192.168.1.1";
#!/usr/bin/perl -w use strict; my $ip="192.168.1.1"; my $count=10; open(CONF,"conf") or die "$!\n"; my $ping=<CONF>; close(CONF); sub run_conf { my $conf=shift; print "run $conf \n"; system($conf) or die "$!\n"; } &run_conf($ping);
这样,按预期应该可以,会执行 ping -c 10 192.168.1.1 (linux下)
结果却是:
[root@localhost Desktop]# perl run.pl
run ping -c $count $ip
ping: bad number of packets to transmit.
不解,于是我直接把$ping 设置为
$ping="ping -c $count $ip";
不从conf读取
再次运行: 出现期望的
[root@localhost Desktop]# perl run.pl
run ping -c 10 192.168.1.1
PING 192.168.1.1 (192.168.1.1) 56(84) bytes of data.
--- 192.168.1.1 ping statistics ---
10 packets transmitted, 0 received, 100% packet loss, time 19014ms
为毛从文件读取的内容,变量未被替换??? 我是这样猜想,perl为了安全起见,就把文件读取的内容,以q的方式或者说是' ',不使用转义,保持原型
就好比 print 'ping -c $count $ip' ,输出的话变量未经替换。
解决方案:
使用替换 $ping=~s/\$ip/$ip/; 将$ip替换为当前变量ip
$ping=~s/\$count/$count/;
#!/usr/bin/perl -w use strict; my $ip="192.168.1.1"; my $count=10; open(CONF,"conf") or die "$!\n"; my $ping=<CONF>; close(CONF); $ping=~s/\$count/$count/; $ping=~s/\$ip/$ip/; sub run_conf { my $conf=shift; print "run $conf \n"; system($conf) or die "$!\n"; } &run_conf($ping);
再次运行: 和预期一样
[root@localhost Desktop]# perl run.pl
run ping -c 10 192.168.1.1
PING 192.168.1.1 (192.168.1.1) 56(84) bytes of data.
--- 192.168.1.1 ping statistics ---
10 packets transmitted, 0 received, 100% packet loss, time 19004ms
![](https://images2015.cnblogs.com/blog/418763/201610/418763-20161014225758390-402578379.gif)