?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1. #!/usr/bin/perl
  2. use strict;
  3. my $str;
  4. my @arr;
  5. my $hex_val;
  6. #open FIL,"_temp_\\out.map";
  7. #open ADDR, ">addr.bin";
  8. open FIL,$ARGV[0];
  9. open ADDR, ">".$ARGV[1];
  10. while($str=<FIL>)
  11. {
  12.     chomp $str;
  13.     $str=~s/\s*//;
  14.     if(length($str)>0)
  15.     {
  16.         @arr=split(/ /,$str);
  17.         if(substr($arr[2],0,1) eq "_")
  18.         {
  19.                         if($arr[2]=~m/_main/){
  20.                                 $hex_val = hex("0x".$arr[0]);
  21.                                 print ADDR pack("V",$hex_val);
  22.                         }
  23.         }
  24.     }
  25. }
  26. close FIL;