perl code for memory modify

最新推荐文章于 2022-02-24 18:28:58 发布

akpbn48606

最新推荐文章于 2022-02-24 18:28:58 发布

阅读量127

点赞数

原文链接：http://www.cnblogs.com/coole/p/8485891.html

版权

 1 #!/usr/bin/perl
 2 if ($ARGV >= 0) {
 3   open(SRC,"$ARGV[0]") or die("ERROR:Please assign a source data file!!!!!!!!");
 4 }else{
 5   print("ERROR:Please assign a source data file!!!!!!!!");
 6   exit();
 7 }
 8 open(DST,">$ARGV[0].18bit") || die("ERROR:Can't open output file");
 9 $line_num=0;
10 $cont="";
11 while(<SRC>){
12    $cont=$_;
13    $line_num++;
14    if($cont=~/\@([0-9A-Fa-f]+)\s+([0-9A-Fa-f]{2})([0-9A-Fa-f]{2})/){
15      $r1=$1;
16      $r2=hex($2);
17      $r3=hex($3);
18      $r4=$r2*512*2+$r3*2;
19      #print "$r4\n";
20      $str=sprintf("%x",$r4);
21      if(length($str)==1) {
22        $align_str="0000".$str;
23      }elsif(length($str)==2){
24        $align_str="000".$str;
25      }elsif(length($str)==3){
26        $align_str="00".$str;
27      }elsif(length($str)==4){
28        $align_str="0".$str;
29      }else{
30        $align_str=$str;
31      }  
32      printf DST "\@$r1  $align_str\n";
33    }elsif($cont=~/([0-9A-Fa-f]{2})([0-9A-Fa-f]{2})/){
34       
35      $r2=hex($1);
36      $r3=hex($2);
37      $r4=$r2*512*2+$r3*2;
38      #print "$r4\n";
39      $str=sprintf("%x",$r4);
40      if(length($str)==1) {
41        $align_str="0000".$str;
42      }elsif(length($str)==2){
43        $align_str="000".$str;
44      }elsif(length($str)==3){
45        $align_str="00".$str;
46      }elsif(length($str)==4){
47        $align_str="0".$str;
48      }else{
49        $align_str=$str;
50      }  
51      printf DST "$align_str\n";
52    }else{
53       print("ERROR:This line $line_num can't be understood!!\n"); 
54    }
55  }      
56  close(SRC);
57  close(DST);
58 
59 print "       Finished!!! \n ";