在线咨询
eetop公众号 创芯大讲堂 创芯人才网
切换到宽版

EETOP 创芯网论坛 (原名:电子顶级开发网)

手机号码,快捷登录

手机号码,快捷登录

找回密码

  登录   注册  

快捷导航
搜帖子
查看: 1850|回复: 2

[求助] perl 脚本问题求教

[复制链接]
发表于 2014-7-30 12:18:53 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?注册

x
现在有一个文件A,它里面的信息如下:
A   B   C
1   1    1
1   0    1
0   1    1
还有一个文件B,它里面信息如下:
A=*;
B=*;
C=*;
现在问题是,需要把文件A中对应的值去替换文件B中对应的*,然后把替换成功的三个文件都输出来,三个输出文件名字是t1,t2,t3;
我现在就是不知道怎样输出三个文件。
求帮助!
发表于 2014-12-3 21:41:41 | 显示全部楼层
#! /usr/bin/perl -w

my $A="filea";
open FH,"<$A" or die "Cannot open $A!\n";
my @arry=<FH>;
my $nu=1;
for(@arry){
  next if(/A\s+B\s+C/);
  my @content=split ;
  open FT,">target$nu" or die "Cannot open target$nu!\n";
  print FT  
"A=$content[0];
B=$content[1];
C=$content[2];";
  close FT;
  $nu++;
  @content=();
}
close FH;
发表于 2014-12-4 09:09:22 | 显示全部楼层
不错的回答
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

站长推荐 上一条 /1 下一条

小黑屋| 关于我们| 联系我们| 在线咨询| 隐私声明| EETOP 创芯网
( 京ICP备:10050787号 京公网安备:11010502037710 )

GMT+8, 2024-3-29 18:26 , Processed in 0.030498 second(s), 12 queries , Gzip On, Redis On.

eetop公众号 创芯大讲堂 创芯人才网
快速回复 返回顶部 返回列表