这段代码什么意思呀

yilong777jp

#!/usr/bin/perl
###### data format sample
#R1 <- R2
#        opcode op_ld_12
#        comment proc_opcode := "00000101";        -- R1 <- R2
#        0: MDR <- mem[PC], PC <- PC + 1
#        1: IR <- MDR, ALUs2 <- R2
#        2: ALU_FUNC = alu_pass_s2, ALUOUT_DEST = R1, ALUOUT <- ALU_OUT
#        3: R1 <- ALUOUT
#        a: MDR <- mem[PC], PC <- PC + 1
#        b: ALUs2 <- R2, ALU_FUNC <- alu_pass_s2, ALUOUT_DEST <- R1, ALUOUT_LOAD <- 1
#        c: WB_DEST <- R1, REG_LOAD <- 1
#

$maxstage = 0;

while(<>{
        chop;
        if( /^#/ ){
                next;
        }
        if( /^        opcode *(.*)/ ){
                $opcode = $1;
                next;
        }
        if( /^        comment *(.*)/ ){
                $comment = $1;
                $Comment{$opcode} = $comment;
                next;
        }
        if( /^        ([a-z]): *(.*)/ ){
                $stage = ord($1) - ord('a');
                $microoperations = $2;
#printf( "\$stage=%d, \$microoperations=%s\n", $stage, $microoperations );
                $maxstage = $stage if( $maxstage < $stage );
                # we skip the first control stage (stage 'a')
                next if( $stage == 0 );
                @operations = split( /, */, $microoperations );
                for( $i=0 ; $i<=$#operations ; $i++ ){
                        if( $operations[$i] =~ /([^ ]*)[ ]*<-[ ]*([^ ]*)/ ){
                                $dest = $1;
                                $value = $2;
                                $instruction{$opcode}[$stage]{$dest} = $value;
                        }
                }
        }
}

yilong777jp

$stage = ord($1) - ord('a');什么意思呢？

flw

ord 返回字符集中字符的顺序，实际上就是 ASCII 码值。

yilong777jp

谢谢版主
chop 是表示把最后一个字节去掉，在这段代码中，chop是把全部的文本文件的换行去掉了么？

apile

沒錯.文本內容要從STDIN進來...
有時候chop不一定有辦法刪除掉換行...
windows下 的換行是\r\n....
因此即便你用chop或chomp將\n刪除..
去讀數據的時候還是會看到\r (^M)..
所以比較好的作法是
s/[\015\012]//g;
給你當參考...

flw

to apile:
chomp 是根据 $/ 的内容删除行分隔符的，
只要 $/ 的值没问题，就不会有错的。
另外，只有在 binmode STDIN 了之后，行分隔符才等于 \r\n，否则还是 \n

yilong777jp

明白了,谢谢大家