awk老帖子，用上传文件测试，别自己写

代号：军刀

http://bbs.chinaunix.net/thread-4112429-1-1.html
@yestreenstars
test.zip (1.5 KB, 下载次数: 4)

2013-12-13 15:47 上传

点击文件名下载附件
解压完有个php文件

解压完有一个test.php文件

1. [root@ dir]$ cat file
   
2. <HOME_URL>                      主页    http://baidu.com

复制代码

执行

1. awk 'NR==FNR{a[$1]=$3;next}{for(i in a)gsub(i,a[i])}{print > FILENAME}' file test.php

复制代码

发现test.php成了这样，内容断了

yestreenstars

对不起，我害了你，以后一定慎用print > FILENAME~
直接修改文件的操作都应该事先备份，这一点你应该清楚吧？

代号：军刀

回复 2# yestreenstars


    我肯定先备份了，后来还原了用成原先写的sed，现在有空就来研究这个问题

jason680

回复 3# 代号：军刀

Would you like to use Perl that combine the sed, awk, c, ...

$ echo abcd > FILE

$ cat FILE
abcd

$ perl -i -lape 's/b/B/g' FILE

$ cat FILE
aBcd

   

代号：军刀

回复 4# jason680


    你可以看下我之前的帖子，不是一句话就能讲清楚的
   http://bbs.chinaunix.net/thread-4112429-1-1.html

代号：军刀

回复 2# yestreenstars


    而现在我用sed又遇到了&这个符号，然后昨天你用awk来解决这个问题，我又掀起了老帖子，真是一波未平一波又起，太有意思了:wink:

jason680

回复 5# 代号：军刀

Would you like this

$ grep . config [ab].txt
config:<SERVERID> 1
config:<SERVER_NAME> aaaaa
a.txt:1
a.txt:2
a.txt:3
a.txt:SERVERID=<SERVERID>
a.txt:4
b.txt:5555
b.txt:<SERVERID>
b.txt:<SERVER_NAME> fdsaf

$ perl -i -lape 'BEGIN{for(`cat config`){if(m/(<[^>]+>)\s+(.+)/){$h{$1}=$2}}}{s/(<[^>]+>)/$h{$1}/g}' [ab].txt

$ grep . config [ab].txt
config:<SERVERID> 1
config:<SERVER_NAME> aaaaa
a.txt:1
a.txt:2
a.txt:3
a.txt:SERVERID=1
a.txt:4
b.txt:5555
b.txt:1
b.txt:aaaaa fdsaf

   

jason680

回复 6# 代号：军刀


    you can use Perl without & issue

reyleon

我一致也没搞清楚这个东西。。试试下面的这个，然后再思考这个问题，到底是为什么：

1. awk 'NR==FNR{a[$1]=$3;next}{for(i in a)gsub(i,a[i])}{print | "cat >" FILENAME}' file test.php

复制代码