Chinaunix

标题: awk老帖子，用上传文件测试，别自己写 [打印本页]

作者: 代号：军刀 时间: 2013-12-13 15:52
标题: awk老帖子，用上传文件测试，别自己写
本帖最后由代号：军刀于 2013-12-16 11:27 编辑

http://bbs.chinaunix.net/thread-4112429-1-1.html
@yestreenstars

test.zip (1.5 KB, 下载次数: 4) 解压完有一个test.php文件

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

复制代码

执行

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

复制代码

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

作者: yestreenstars 时间: 2013-12-13 15:56
对不起，我害了你，以后一定慎用print > FILENAME~
直接修改文件的操作都应该事先备份，这一点你应该清楚吧？

作者: 代号：军刀 时间: 2013-12-13 16:03
回复 2# yestreenstars

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

作者: jason680 时间: 2013-12-13 16:09
回复 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

作者: 代号：军刀 时间: 2013-12-13 16:12
回复 4# jason680

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

作者: 代号：军刀 时间: 2013-12-13 16:16
回复 2# yestreenstars

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

作者: jason680 时间: 2013-12-13 16:27
回复 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 时间: 2013-12-13 16:31
回复 6# 代号：军刀

you can use Perl without & issue

作者: zooyo 时间: 2013-12-13 17:13
提示: 作者被禁止或删除内容自动屏蔽

作者: reyleon 时间: 2013-12-13 17:46
我一致也没搞清楚这个东西。。试试下面的这个，然后再思考这个问题，到底是为什么：

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

复制代码

作者: 代号：军刀 时间: 2013-12-16 11:23
本帖最后由代号：军刀于 2013-12-16 11:25 编辑

回复 7# jason680

你这perl也出问题呀，代码段了，不完整，你拿我上传的php文件做下测试就知道了

作者: jason680 时间: 2013-12-16 12:12
本帖最后由 jason680 于 2013-12-16 12:17 编辑

回复 11# 代号：军刀

try this one

$ cp test.php.org  test.php

$ wc test.php
145  330 4151 test.php

$ diff test.php test.php.org

$ cat config
<HOME_URL> 127.0.0.1

$ perl -i -lape 'BEGIN{for(`cat config`){if(m/(<[^>]+>)\s+(.+)/){$h{$1}=$2}}}{s/(<[^>]+>)/$h{$1} eq ""?$1:$h{$1}/eg}' test.php

$ diff test.php test.php.org
73c73
<       var m_url = "127.0.0.1";
---
>       var m_url = "<HOME_URL>";

$ wc test.php
145  330 4150 test.php

$ awk 'NR<3||/var m_url/{print NR,$0}{a=b;b=c;c=$0}END{print NR-2,a"\n"NR-1,b"\n"NR,c}' test.php
1 <?php
2
73        var m_url = "127.0.0.1";
143                return unescape(document.cookie.substring(c_start, c_end));
144          }
145

作者: 代号：军刀 时间: 2013-12-16 13:58
本帖最后由代号：军刀于 2013-12-16 14:10 编辑

回复 12# jason680

命令大概理解了，修改前和修改后的差别在于修改后对哈希值进行了判断是否为空，为什么你之前写的perl命令会导致文件出现不完整，可能awk也是这个问题？

作者: jason680 时间: 2013-12-16 14:31
回复 13# 代号：军刀

I didn't get the file broken issue, but it it ate the all html tag( <...> ) in your test.php

<head id="Head1">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<SCRIPT src="js/swfobject.js" type="text/javascript"></SCRIPT>
<SCRIPT src="js/flash_config.js" type="text/javascript"></SCRIPT>
<SCRIPT src="js/rightclick.js" type="text/javascript"></SCRIPT>
<STYLE>
</STYLE>
<script type="text/javascript">

作者: 代号：军刀 时间: 2013-12-16 17:38
回复 12# jason680

perl -i -lape 'BEGIN{for(`cat config`)

复制代码

如果这里我的文件用的是一个变量在表示，该如何修改
比如 echo $file=config,怎样把变量$file拿进去，试了下面这个，不行
perl -i -lape 'BEGIN{for(`cat $file`)[/code]
还有 perl -i -lape "BEGIN{for(`cat $file`)也不行

作者: jason680 时间: 2013-12-16 17:44
回复 15# 代号：军刀

$ cat config
<HOME_URL> 127.0.0.1

$ export file=config; perl -e 'BEGIN{print `cat $ENV{file}`}'
<HOME_URL> 127.0.0.1

作者: 代号：军刀 时间: 2013-12-16 23:31
本帖最后由代号：军刀于 2013-12-16 23:33 编辑

回复 16# jason680

多谢。当初学了段时间的perl，后来放弃，看了文本处理perl还是好用,不过还是有点perl基础，不然前面你写得perl命令，我就完全看不懂，到时想修改都无从下手，哈哈

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)