求助此问题用perl如何来实现

carveoutlove · 发表于 2016-4-28 22:47:09

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

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

x

各位大牛：
我现在有一个网表,内容如下：
DD3 net0294 ch2 net0194 NPWD
DD4 net0295 ch2 net0195 NPWD
DD5 net0296 ch2 net0196 NPWD
........
如何用perl让它变为下面格式
DD3  net0294 ch2 NPWD $w=net0194
DD4  net0295 ch2 NPWD $w=net0195
DD5  net0296 ch2 NPWD $w=net0196
.......
由于很多上面的形式，现在只能让perl先搜索NPWD这行,然后将NPWD前面的字符删除(net0194,net0195，net0196),在NPWD后面添加$w=(net0194,net0195，net0196),恳请各位大牛用perl如何来写？万分感谢！

bsbs525 · 发表于 2016-5-3 14:15:34

本帖最后由 bsbs525 于 2016-5-3 14:16 编辑

#!/usr/bin/perl
open (newfile, ">SC_change.v") or die "Can't open

!\n";
while(<>){
      s/(\S+)\s+NPWD$/NPWD \$w\=$1/;
      print newfile;
  }
close newfile;

li01306220 · 发表于 2016-5-3 17:28:48

perl -p -i.bak -w -e 's/(\S+)\s+NPWD$/NPWD \$w\=$1/' filename

carveoutlove · 发表于 2016-6-9 10:35:41

回复 2# bsbs525

大牛：您好！在使用上述程序后，好像程序会报错。

[求助] 求助此问题用perl如何来实现

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

站长推荐 /1