一段文本文件的处理

yilong777jp

处理一段文本文件
R2 <- R1 + (R3)
        opcode op_add_21_3
        comment proc_opcode := "01100010";        -- R2 <- R1+(R3)
        a: MDR <- mem[PC], PC <- PC + 1
        b: MAR_SRC <- R3, MAR_LOAD <- 1, ADDR_SEL <- 1, MDR_INST <- 0, PC_INC <- 0, R2_PENDING <- 1
        c: MDR_SRC <- MEM, MDR_LOAD <- 1, MDR_INST <- 0, PC_INC <- 0, R2_PENDING <- 1
        d: ALUs1_SRC <- R1, ALUs2_SRC <- MDR, ALU_FUNC <- alu_add, ALUOUT_DEST <- R2, ALUOUT_LOAD <- 1
        e: WB_DEST <- R2, REG_LOAD <- 1

参考一位朋友的程序，还是不变化的输出，毛病出在哪里呢？？


#!c:/perl/bin/perl
@ARGV = glob "C:\in.txt" or die "no file found";

while (<>{
if(/^([a-z]): *(.*)/ ){

   if(/MDR_LOAD <- 1, MDR_INST <- 0/)
  {
      @line = split(/:/, $_);
       $n=ord($line[0]);
     print "$line[0]line[1]";
      next;
   }
  $need = $_;
   @line2 = split(/:/,$need);
if(ord($line2[0]) >; $n)
     {     
        if(ord($line2[0]) == $n+1)
       {
       print ",$line2[1],MDR_HAZARD <- 1";
       next;
         }else{
        $b = chr(ord($line2[0])-1);
        print "$bline2[1]";
             next;
         }
      }
}
print;
}

yilong777jp

终于知道原因了，
R2 <- R1 + (R4)
opcode op_add_21_4
comment proc_opcode := "01100110"; -- R2 <- R1+(R4)
     a: MDR <- mem[PC], PC <- PC + 1
     b: MAR_SRC <- R4, MAR_LOAD <- 1, ADDR_SEL <- 1, MDR_INST <- 0, PC_INC <- 0, R2_PENDING <- 1
     c: MDR_SRC <- MEM, MDR_LOAD <- 1, MDR_INST <- 0, PC_INC <- 0, R2_PENDING <- 1
     d: ALUs1_SRC <- R1, ALUs2_SRC <- MDR, ALU_FUNC <- alu_add, ALUOUT_DEST <- R2, ALUOUT_LOAD <- 1
     e: WB      _DEST <- R2, REG_LOAD <- 1


a，b c d 段的命令前面是有空格的，我给大家发出去后就没有了，因为有空格，所以检测不到a到z就输出了。空格消除后就可以了，但是在有空格的时候，程序中怎样消除呢，请大家帮忙~~~

superdoctor

在你上个帖子我给你回复了

如果加上空格那么正则表达式作相应更改就可以了

yilong777jp

谢谢您，就是说if(/^     ([a-z]): *(.*)/ )打头的部分是空格就可以判定了吧~
但是后面的 $n=ord($line[0]);ord($line2[0]) >; $n怎么改变呢！

superdoctor

[quote]原帖由 "yilong777jp"] $n怎么改变呢！[/quote 发表：


我记得这几天的贴子里面有一个讨论如何去掉一行开头的空行的,你找找看

不然你处理一下$line[0]也可以,用substr之类的

yilong777jp

真的谢谢 superdoctor的耐心指导！！
我找到了  s/^.//s; 这个是去掉第一个字符，变成空格，看来只有用substr了。
其实，我另一个帖子提到的2个程序的合并，只是很简单的读取关系，就是以前的那个文本文件程序的处理结果，作为下一个程序的读取源，您有什么好办法么？

superdoctor

你的那个帖子我也回复过

望尘莫及

superdoctor 你也回回我的呀,还没人帮我

superdoctor

楼上的,我给你回了