请教 文本文件转换的问题

apile

上面那個...
@ary = <FH>;;
$idx = 0;
for(@ary)
{

$idx++;
}
你的perl基礎不夠...先看看learning perl後再開始寫..會比較容易上手

yilong777jp

但是新的命令开始又是从a到z的顺序了，不是接着上面命令的顺序了。。。

superdoctor

出差中,闲着无事,给你写一个吧

1. 
   
2.   use strict;
   
3. 
   
4.   my $i=0;
   
5.   my $n=-3;
   
6.   my @letter = ("a".."z");
   
7.   @ARGV = glob "cpuinfo" or die "no file found";
   
8.    $^I = "";
   
9.    while (<>;) {
   
10.      if($i==1){
    
11.       s/^$letter[$n]: (.*)/ $1/;
    
12.       $i++;
    
13.       }
    
14.      if(/MDR_LOAD <- 1, MDR_INST <- 0/){
    
15.       chomp;
    
16.       $i++;
    
17.       }
    
18.      if($i>;1){
    
19.       s/^$letter[$n]: (.*)/$letter[$n-1]: $1/;
    
20.       }
    
21. 
    
22.      print;
    
23.      $n++;
    
24.    }
    
25. 
    

复制代码

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]#
    
12. [root@mail workspace]# ./update_file.pl
    
13. [root@mail workspace]# cat cpuinfo
    
14. R2 <- R1 + (R4)
    
15. opcode op_add_21_4
    
16. comment proc_opcode := "01100110"; -- R2 <- R1+(R4)
    
17. a: MDR <- mem[PC], PC <- PC + 1
    
18. b: MAR_SRC <- R4, MAR_LOAD <- 1, ADDR_SEL <- 1, MDR_INST <- 0, PC_INC <- 0, R2_PENDING <- 1
    
19. 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
    
20. d: WB_DEST <- R2, REG_LOAD <- 1
    
21. [root@mail workspace]#
    
22. 
    

复制代码

应该合乎要求吧,跟行号无关 [/code]

yilong777jp

运行了，根本不是你下面显示的那个~~~

superdoctor

$^I learning perl里面有这个符号的说明

@ARGV = glob "cpuinfo" or die "no file found";
如果你的文件叫a.txt,并且在c:\目录下那么改为

@ARGV = glob "c:\a.txt" or die "no file found";   you kown?

yilong777jp

您能说说思路么，我也学习学习
my $n=-3; 为什么是-3呀？？表示后数第4行？？
能说说么？？
我现在手中没有教材呀。$^I什么意思，您就说说吧！！
总是说while (<> { 这一行有问题，怎么回事呢

superdoctor

字母和@letter数组下标对应,你的文件前面都有三行是不包含首起字母的所以要-3

你看看是不是你拷贝的时候出现异常字符了,程序没有问题,我在linux下测试正常

$^I类似的符号Perl里面有非常多,还是找书来看吧

yilong777jp

我明白您的意思了。但是cpu的命令有很多，这个只是一个例子，按您的程序的话，如果第前2行出现变化的话，就不能应用了。就是说a-z不一定出现在第2行的，我的意思是无论什么命令，只要读到那个语句，就把下行的内容加上，并把以下的行标改正。您能帮我看看我这个思路对么？？
#!c:/perl/bin/perl
use strict;
my $idx = 0;
@ARGV = glob "C:\in.txt" or die "no file found";
while (<>{
  if(/^        ([a-z]): *(.*)/)
   {
     if(/MDR_LOAD <- 1, MDR_INST <- 0/)
    {
     $a=substr($idx,0,1);
     $idx+=1;
     $new=substr($idx,2);
     $stage=",";
     $idx.=$stage;
     $idx.=$new;
     $idx.=$stage;
     $cg="MDR_HAZARD <- 1"
     $idx.=$cg;

     $b=substr($idx,0,1);
     $b=chr(ord($b+1));
     $co=substr($idx+1,1);

     $idx+1=$b.$co;
     $idx++;
    }
     }
print;
$idx++;
}

superdoctor

你改改就行了,简单的方法有--程序后面加参数,告诉程序a-z的行从第几行开始,然后变更相应的-3值

如果a-z行是连续的话就没有问题

yilong777jp

-3？？不能确定a段会出现在第3行的
您能帮我看看我上面的对么？