Chinaunix

标题: 请教perl格式化文本的问题 [打印本页]

作者: hubeichenrui 时间: 2008-11-10 18:10
标题: 请教perl格式化文本的问题
perl如何实现读取一个文件，该文件内容如下
#
# System Type
#
# CONFIG_ARCH_ARM7 is not set
CONFIG_ARCH_ARM9=y

#
# General setup
#
CONFIG_BOOTLOAD_ADDR=y
CONFIG_BOOTLOAD_TEXTADDR=33000000
# CONFIG_RESET_HANDLING is not set

#号开始行为注释
将CONFIG_ARCH_ARM9=y这样的行转换成
GBLL CONFIG_ARCH_ARM9
CONFIG_ARCH_ARM9 SETL {TRUE}
将# CONFIG_ARCH_ARM7 is not set这样的行转换成

GBLL CONFIG_ARCH_ARM7
CONFIG_ARCH_ARM7 SETL {FLASE}

将CONFIG_BOOTLOAD_TEXTADDR=33000000这样的行转换成
CONFIG_BOOTLOAD_TEXTADDR EQU 0x33000000

求教，怎么样实现上面的思路？

作者: flw 时间: 2008-11-10 18:20
perldoc perlsyn
转换就是了嘛。
又是临时用户，不会了就来问一下，问完了就走了。
又想用 Perl，又不想花点时间好好学一下。
用了几次以后还跟人说自己会 Perl，还写上几段垃圾 Perl 代码以资证明，结果让别人误以为 Perl 这门语言很垃圾。

基本上，Perl 的名声都是让临时用户给带坏的。
大家不愿意像对待 C 语言一样认真对待 Perl，导致写出垃圾 Perl 脚本，给人的印象越来越差。
而热心帮助别人，却正是在进一步促进这种状态。

作者: hr_it 时间: 2008-11-10 18:26
flw,我不是临时用户哈.
正在看perl语言入门第四版.
有什么问题还请麻烦你帮下啊.

作者: flw 时间: 2008-11-10 18:29

原帖由 hr_it 于 2008-11-10 18:26 发表
flw,我不是临时用户哈.
正在看perl语言入门第四版.
有什么问题还请麻烦你帮下啊.

欢迎。不如你来试着解决一下楼主的问题？正好练习一下。
我给你个思路。

while(<>){
if ( /........../ ){
print .........;
print .........;
}
else{
print;
}
}

复制代码

作者: hr_it 时间: 2008-11-10 18:39
写了个很丑陋的,测试了下可以实现这个功能. (只替换了一种情况,另外的两个相同处理)

$^I = ".bak";

while (<>)
{
      if (/CONFIG_ARCH_ARM9=y/)
      {
            s/CONFIG_ARCH_ARM9=y/GBLL CONFIG_ARCH_ARM9\nCONFIG_ARCH_ARM9 SETL {TRUE}/;
      }
      print ;
}

作者: flw 时间: 2008-11-10 18:42
你不用 s/// 就会优雅很多。
我都给出你 else 了，你非要写丑陋的，有什么办法。

记住：不要滥用正则表达式。

if ( /........../ ){
print .......;
}
elsif ( /........./ ){
print ..........;
}
else{
print;
}
多优雅啊。

复制代码

作者: hr_it 时间: 2008-11-10 18:51
你是说把要替换的内容在每个分支直接放在print后是吧.

作者: flw 时间: 2008-11-10 18:56
对。因为你替换的目的不就是为了 print 嘛。
所以直接 print 不就完了？没必要先 s/// 再 print。

写程序时，思路要清楚。思路清楚了，程序就漂亮了。

作者: hr_it 时间: 2008-11-10 18:58
好的, 受教.

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