| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 1036 人关注过本帖
标题:【求助】读取文件内容前给全局变量赋值,读取文件内容时全局变量值为替换成 ...
只看楼主 加入收藏
gqingm
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2017-10-30
  问题点数:0  回复次数:0   
【求助】读取文件内容前给全局变量赋值,读取文件内容时全局变量值为替换成功
Hi 各位大神,
我在使用perl编写脚本的过程中,遇到一个问题,一直没找到解决办法,请帮忙寻找解决办法。
脚本包含程序正文文件和以.cfg为结尾的文件,在.cfg文件中定义了很多block(block的名字定位BLOCK1),里面包含全局变量如VAR1,VAR2.....,程序正文代码在读取.cfg文件的BLOCK1的内容前,先对全局变量进行了赋值,如VAR1=11; VAR2=22;.......然后再读取BLOCK1中的内容,并将相应内容写到一个新的文件里。读取BLOCK1时使用语句my $conf = eval '$::D1'.'{BLOCK1}';然后将读到的内容写到新的文件file1中,
open(OUTFILE, ">file1");
print OUTFILE ("$conf");
close (OUTFILE);
结果看到file1中的内容为BLOCK1的内容,但未将全局变量VAR1,VAR2.......替换为具体的数值输出到新的数值,试着将.cfg文件中全局变量给为(VAR1), $::VAR1之后都不能实现我的目的,请大神赐教怎么解决。
搜索更多相关主题的帖子: 读取 文件 内容 全局变量 替换 
2017-10-30 17:01
快速回复:【求助】读取文件内容前给全局变量赋值,读取文件内容时全局变量值为替 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.073137 second(s), 9 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved