请教perl格式化文本的问题

hubeichenrui

UID: 9485
帖子: 133
积分: 305
在线时间: 1 天

1^# 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

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

2^# flw 发表于 2008-11-10 18:20

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

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

hr_it

UID: 32288
帖子: 174
积分: 400
在线时间: 1 天 17 小时

3^# hr_it 发表于 2008-11-10 18:26

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

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

4^# flw 发表于 2008-11-10 18:29

QUOTE:

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

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

[Copy to clipboard] [ - ]

CODE:

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

hr_it

UID: 32288
帖子: 174
积分: 400
在线时间: 1 天 17 小时

5^# 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 ;
}