请教 文本文件转换的问题

superdoctor

你的程序到处是错误,而且你正则没学好啊

按照你的思路给你改了改,但这种思路我觉得太繁琐了,最好照我上个的那种算法

1. 
   
2. use strict;
   
3. 
   
4. my ($n);
   
5. my $idx = 0;
   
6. @ARGV = glob "cpuinfo" or die "no file found";
   
7. while (<>;){
   
8. if(/^([a-z])+: .*/)
   
9. {
   
10. if(/MDR_LOAD <- 1, MDR_INST <- 0/)
    
11. {
    
12. my @line = split(/:/, $_);
    
13. chomp($line[1]);
    
14. $n=ord($line[0]);
    
15. print "$line[0]:$line[1]";
    
16. $idx++;
    
17. next;
    
18. }
    
19. my $need = $_;
    
20. my @line2 = split(/:/,$need);
    
21. if($idx >; 0 && ord($line2[0]) >; $n){     
    
22. if(ord($line2[0]) == $n+1){
    
23.   print ",$line2[1]";
    
24.   next;
    
25. }else{
    
26. my $b = chr(ord($line2[0])-1);
    
27. print "$b:$line2[1]";
    
28. next;
    
29. }
    
30. }
    
31. print;
    
32. }
    
33. #$idx++;
    

复制代码

1. 
   
2. [root@mail workspace]# cat cpuinfo
   
3. R2 <- R1 + (R4)
   
4. opcode op_add_21_4
   
5. comment proc_opcode := "01100110"; -- R2 <- R1+(R4)
   
6. a: MDR <- mem[PC], PC <- PC + 1
   
7. b: MAR_SRC <- R4, MAR_LOAD <- 1, ADDR_SEL <- 1, MDR_INST <- 0, PC_INC <- 0, R2_PENDING <- 1
   
8. c: MDR_SRC <- MEM, MDR_LOAD <- 1, MDR_INST <- 0, PC_INC <- 0, R2_PENDING <- 1
   
9. d: ALUs1_SRC <- R1, ALUs2_SRC <- MDR, ALU_FUNC <- alu_add, ALUOUT_DEST <- R2, ALUOUT_LOAD <- 1
   
10. e: WB_DEST <- R2, REG_LOAD <- 1
    
11. [root@mail workspace]# ./update_file2.pl
    
12. a: MDR <- mem[PC], PC <- PC + 1
    
13. b: MAR_SRC <- R4, MAR_LOAD <- 1, ADDR_SEL <- 1, MDR_INST <- 0, PC_INC <- 0, R2_PENDING <- 1
    
14. c: MDR_SRC <- MEM, MDR_LOAD <- 1, MDR_INST <- 0, PC_INC <- 0, R2_PENDING <- 1, ALUs1_SRC <- R1, ALUs2_SRC <- MDR, ALU_FUNC <- alu_add, ALUOUT_DEST <- R2, ALUOUT_LOAD <- 1
    
15. d: WB_DEST <- R2, REG_LOAD <- 1
    

复制代码

yilong777jp

谢谢您，还是一头雾水，就是不明白为什么要设-3呢，看来我要从头学起了！！谢谢您的帮助~~
您有msn么，我的yilong0070701@msn.com.
希望能认识您这样的朋友~~

superdoctor

my msn is supermicro_cn@hotmail.com

yilong777jp

您的程序最后少个}，不知道您是怎么执行的，我执行了，还是和原来一样呀没有变化！！
而且#$idx++;没什么意义吧？

错在哪里呢？？  
$need = $_;表示的还是原来的那一行，并不是新的一行呀，读取下一行怎么执行呢？

superdoctor

我的程序在拷贝的时候少了一个},你加上就可以

我第二个给你的程序是按照你的思路给你改的,程序无法更改原始文件的,而是直接将a-z行更新后输出到屏幕,你看我在程序后面运行时的例子就看得到

可以自己组合一下我的两个程序如果你一定要使用你自己的思路的话,或者最简单的是在第二个程序前面打开另外一个文件,然后将输出写到这个文件中,然后替换原始文件

yilong777jp

第一个程序固然精妙。但是前3行的内容有时候是变化的，就是说a不一定是从第3行开始的，所以认为还是第2个的比较好！！
谢谢您 的指导~~