修改symbian工程uid3的脚本

脚本很简单。
运行时需要在工程根目录下，可修改脚本，以适应不同的uid
源码如下：

1. #!/usr/bin/perl -w
2. use File::Find;
3. use strict;
5. my $iterType;# "findUid" "replace"
6. my $oldUid;
7. my $newUid;
9. &main();
11. sub main()
12. {
13.     &findUid;
14.     if(! $oldUid)
15.     {
16.         die 'cannot find uid';
17.     }
18.     else
19.     {
20.         print "ori uid3=$oldUid/n";
21.     }
23.     $newUid="0x12345678";
24.     &ReplaceUid;
25. }
27. sub findUid
28. {
29.     my $groupDir='./group';
30.     $iterType="findUid";
31.     find({'wanted'=>/&HandleFile,'no_chdir'=>1},$groupDir);
32. }
34. sub ReplaceUid
35. {
36.     $iterType="findAll";
37.     find({'wanted'=>/&HandleFile,'no_chdir'=>1},".");
38. }
40. sub HandleFile
41. {
42.     my $fullName=$File::Find::name;
43.     if (! -T $fullName)
44.     {
45.         return;
46.     }
48.     if ($iterType eq 'findUid')
49.     {
50.         &DoFindUid($fullName);  
51.     }
52.     elsif ($iterType eq 'replace')
53.     {
54.         &DoReplaceUid($fullName);
55.     }
56.     else
57.     {
58.     }
59. }
61. sub DoFindUid
62. {
63.     my ($file)=@_;
64.     if($file =~ /.mmp/)
65.     {
66.         print "found $file/n";
67.         open (MMPFILE,"<$file") or die "cannot open $file/n";
68.         my @content=<MMPFILE>;
69.         chomp @content;
70.         foreach (@content)
71.         {
72.             # UID 0xxxxxx  0x12345678
73.             if (//s*uid/s*(/w*)/s*(/w*)/i)
74.             {
75.                 $oldUid=$2;
76.                 $oldUid =~ s/0x//i;
77.                 return;
78.             }
79.         }
80.         close MMPFILE;
81.     }
82. }
84. sub DoReplaceUid
85. {
86.     my ($file)=@_;
88.     open FILEIN,"<$file" or die "cannot read $file/n";
89.     my @data=<FILEIN>;
90.     close FILEIN;
92.     my $line=0;
93.     foreach (@data)
94.     {
95.         if (/$oldUid/i)
96.         {
97.             print "in $file,line=$line,$_";
98.             s/$oldUid/$newUid/g;
99.         }
100.         ++$line;
101.     }
103.     open FILEOUT,">$file";
104.     print FILEOUT @data;
105.     close FILEOUT;
106. }