modelsim中的文件操作—— 大数据测试

　　在modelsim中不可避免的需要进行文件操作，在窗口中查看代码的操作情况，下面是我自己M序列实验中的一段测试代码

integer i,j ,k,m; 

integer m_dataFILE ,
        indataFILE ,
        oudataFILE ;
    
reg [3:0] i_data[0:9999] ;    
    
    
initial 
    begin 
        m_dataFILE = $fopen ("./m_data.dat"); // m序列存储文件
        indataFILE = $fopen ("./indata.dat"); // 随机数（用于发送的数据）存储文件
        oudataFILE = $fopen ("./oudata.dat"); // 接收数据的存储文件
        for(i=0;i<10000;i=i+1)
            begin 
                i_data[i] = $random%16;
                $fdisplay (indataFILE,"%b",i_data[i]); 
            end 
        $fclose (indataFILE);
    end 

always @ (posedge clock)
    if(reset)
        begin  : wirte_file
            $fdisplay (m_dataFILE,"%b",my_m.m_sequ); //m序列保存
        end 

下面一段是校验输出，接收和发送的数据如果出现错误就有错误提示

reg [3:0] decode_data[0:9999] ;            
        
always @ (posedge clk1)
    if(!reset1) 
        begin 
            k <= 0 ; 
            m <= 0 ; 
        end 
    else if((reset)&&(fi_flag))
        begin 
            //decode_data[k] <= my_encode.ana_sign;
            k <= k+ 1; 
            $fdisplay (oudataFILE,"%b",my_encode.ana_sign); // 接收到的数据进行保存
            
            
            if(i_data[k-2] == my_encode.ana_sign) 
                $display ("%b  OK! %b " ,i_data[k-2],my_encode.ana_sign);
            else 
                begin 
                    m <= m + 1 ; 
                    $display ("%b  ERROR! %b " ,i_data[k-2],my_encode.ana_sign);
                end 

至于i_data[k-2], 这个为什么是-2，是因为数据数据停滞期是2个时钟