IPhone打包工具脚本

（后面就是代码了，我就不翻译了。）

#!/usr/bin/perl 
   use File::Copy; 
   
   my $installPath = $ARGV[0]; 
   
   #the name that displays on the iPhone 
   my $bundleDisplayName = "New App"; 
   # prerendered icons don't have the glossy effect applied over them. 
   my $prerenderedIcon = 1; 
   # determines orientation of OS popups (text messages, volume controls) 
   my $landscapeOrientation = 0; 
   
   # these three are values defined in AppController.m 
   my $fpsRate = "60.0"; 
   my $accelerometerRate = "60.0"; 
   my $profilerOn = "0"; 
   
   #go through the info.plist file line by line until you find this one: 
   my $findLine = "CFBundleDisplayName"; 
   my $endOfPlist = "</dict>"; 
   
   #copy Default.png and Icon.png from Asset to installPath 
   my $iconFilename = "Icon.png"; 
   my $defaultFilename = "Default.png"; 
   
   # The type of player built: 
   # "dashboard", "standaloneWin32", "standaloneOSXIntel", "standaloneOSXPPC", "standaloneOSXUniversal", "webplayer", "iPhone" 
   my $target = $ARGV[1]; 
   
   print ("\n*** PostprocessBuildPlayer - Building at '$installPath' with target: $target ***\n"); 
   
   my $dst = $installPath . "/" . $iconFilename; 
   print ("Copying Icon.png [$iconFilename -> $dst]\n"); 
   copy($iconFilename, $dst) or die "Icon file can not be copied "; 
   
   my $dst = $installPath . "/" . $defaultFilename; 
   print ("Copying Default.png [$defaultFilename -> $dst]\n"); 
   copy($defaultFilename, $dst) or die "Default file can not be copied "; 
   
   ################################################################ 
   # This modifies info.plist so you don't have to                # 
   # set BundleDisplayName manually                               # 
   ################################################################ 
   
   #open this file 
   
   $oplistPath = $installPath."/Info.plist"; 
   $nplistPath = $installPath."/Info.plist.tmp"; 
   
   open OLDPLIST, "<", $oplistPath or die("Cannot open Info.plist"); 
   open NEWPLIST, ">", $nplistPath or die("Cannot create new Info.plist"); 
   
   my $nextLine = 0;    
       
   while(<OLDPLIST>) 
   {     
      if ($nextLine == 1) 
      { 
         $_ =~ s/\${PRODUCT_NAME}/$bundleDisplayName/; #swap the product name for display name 
       
         $nextLine = 0; 
      } 
   
      if ($_ =~ m/$findLine/) 
      { 
         $nextLine = 1; 
      } 
       
      ################################################################ 
      # Add any key/value pairs you want at the end of Info.plist    # 
      ################################################################ 
   
      if ($_ =~ m/$endOfPlist/) 
      { 
         my $keys = ""; 
          
         if ($prerenderedIcon) 
         { 
            $keys .= "   <key>UIPrerenderedIcon</key>\n"; 
            $keys .= "   <true/>\n"; 
         } 
          
         if ($landscapeOrientation) 
         { 
            $keys .= "   <key>UIInterfaceOrientation</key>\n"; 
            $keys .= "   <string>UIInterfaceOrientationLandscapeRight</string>\n";       
         } 
          
         $_ = $keys . $_; 
      } 
       
      print NEWPLIST $_; 
   } 
   
   close OLDPLIST; 
   close NEWPLIST; 
   
   `mv \'$nplistPath\' \'$oplistPath\'`; 
   
   ################################################################ 
   # Change default Profiler & kFPS rates                         # 
   ################################################################ 
   
   $oacmPath = $installPath."/Classes/AppController.mm"; 
   $nacmPath = $installPath."/Classes/AppController.mm.tmp"; 
   
   open OLDACM, "<", $oacmPath or die("Cannot open AppController.mm"); 
   open NEWACM, ">", $nacmPath or die("Cannot create new AppController.mm"); 
   
   while(<OLDACM>) 
   { 
      if ($_ =~ m/ENABLE_INTERNAL_PROFILER/) 
      { 
         $_ =~ s/0/$profilerOn/; 
      } 
      if ($_ =~ m/kFPS/) 
      { 
         $_ =~ s/60.0/$fpsRate/; 
      } 
      if ($_ =~ m/kAccelerometerFrequency/) 
      { 
         $_ =~ s/60.0/$accelerometerRate/; 
      } 
      print NEWACM $_; 
   } 
   
   close OLDACM; 
   close NEWACM; 
   
   `mv \'$nacmPath\' \'$oacmPath\'`;