请教perl格式化文本的问题

hubeichenrui

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

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

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

hr_it

flw,我不是临时用户哈.
正在看perl语言入门第四版.
有什么问题还请麻烦你帮下啊.

flw

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

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

1. while(<>){
   
2.      if ( /........../ ){
   
3.          print .........;
   
4.          print .........;
   
5.     }
   
6.     else{
   
7.         print;
   
8.     }
   
9. }

复制代码

hr_it

写了个很丑陋的,测试了下可以实现这个功能.  (只替换了一种情况,另外的两个相同处理)

$^I = ".bak"; while (<>) {         if (/CONFIG_ARCH_ARM9=y/)         {                 s/CONFIG_ARCH_ARM9=y/GBLL CONFIG_ARCH_ARM9\nCONFIG_ARCH_ARM9 SETL {TRUE}/;         }         print ; }

flw

你不用 s/// 就会优雅很多。
我都给出你 else 了，你非要写丑陋的，有什么办法。

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

1. if ( /........../ ){
   
2.     print .......;
   
3. }
   
4. elsif ( /........./ ){
   
5.     print ..........;
   
6. }
   
7. else{
   
8.     print;
   
9. }
   
10. 
    
11. 多优雅啊。

复制代码

hr_it

你是说把要替换的内容在每个分支直接放在print后是吧.

flw

对。因为你替换的目的不就是为了 print 嘛。
所以直接 print 不就完了？没必要先 s/// 再 print。

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

hr_it

好的, 受教.