perl 从文件里读出变量无法使用解决办法

最新推荐文章于 2024-09-18 17:56:14 发布

weixin_34044273

最新推荐文章于 2024-09-18 17:56:14 发布

阅读量554

点赞数

本文探讨了在Perl中从配置文件读取并执行带有变量的命令时遇到的问题及解决方法。作者试图通过配置文件调用带有变量的ping命令，但发现变量未被正确替换。通过字符串替换解决了该问题。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

最近在写一个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);