12 / 2 页

论坛徽章:: 13

11楼 [报告]

发表于 2013-12-16 11:23 |只看该作者

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

回复 7# jason680

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

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

jason680

富可敌国

论坛徽章:: 145

12楼 [报告]

发表于 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

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

代号：军刀

家境小康

论坛徽章:: 13

13楼 [报告]

发表于 2013-12-16 13:58 |只看该作者

本帖最后由代号：军刀于 2013-12-16 14:10 编辑

回复 12# jason680

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

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

jason680

富可敌国

论坛徽章:: 145

14楼 [报告]

发表于 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">

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

代号：军刀

家境小康

论坛徽章:: 13

15楼 [报告]

发表于 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`)也不行