zoukankan      html  css  js  c++  java
  • 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 "$!
    ";
    my $ping=<CONF>;
    close(CONF);
    sub run_conf
    {
        my $conf=shift;
        print "run $conf 
    ";
        system($conf) or die "$!
    ";
    }
    &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 "$!
    ";
    my $ping=<CONF>;
    close(CONF);
    $ping=~s/$count/$count/;
    $ping=~s/$ip/$ip/;
    sub run_conf
    {
        my $conf=shift;
        print "run $conf 
    ";
        system($conf) or die "$!
    ";
    }
    &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

  • 相关阅读:
    (二) 线程创建、中止、中断、线程Join、优先级、调度
    cmake 生成64位项目
    ffmpeg + sdl player console
    ffmpeg cmd
    ffmpeg coco2d-x lua test
    ffmpeg windows config win32/win64 compile
    ffmpeg configure --help
    ffmpeg Windows platfrom ndk compile ffmpeg
    NDK r21编译FFmpeg 4.2.2(x86、x86_64、armv7、armv8)
    解决NDK交叉编译 selected processor does not support ARM mode libtheora的错误
  • 原文地址:https://www.cnblogs.com/tobecrazy/p/3201580.html
Copyright © 2011-2022 走看看