IPhone打包工具脚本

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

#!/usr/bin/perl
   use File::Copy; 

   my $installPath = $ARGV[]; 

   #the name that displays on the iPhone
   my $bundleDisplayName = "New App";
   # prerendered icons don't have the glossy effect applied over them.
   my $prerenderedIcon = ;
   # determines orientation of OS popups (text messages, volume controls)
   my $landscapeOrientation = ; 

   # these three are values defined in AppController.m
   my $fpsRate = "60.0";
   my $accelerometerRate = "60.0";
   my $profilerOn = ""; 

   #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[]; 

   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 = ;   
      
   while(<OLDPLIST>)
   {    
      if ($nextLine == )
      {
         $_ =~ s/\${PRODUCT_NAME}/$bundleDisplayName/; #swap the product name for display name
      
         $nextLine = ;
      } 

      if ($_ =~ m/$findLine/)
      {
         $nextLine = ;
      }
      
      ################################################################
      # 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//$profilerOn/;
      }
      if ($_ =~ m/kFPS/)
      {
         $_ =~ s/60.0/$fpsRate/;
      }
      if ($_ =~ m/kAccelerometerFrequency/)
      {
         $_ =~ s/60.0/$accelerometerRate/;
      }
      print NEWACM $_;
   } 

   close OLDACM;
   close NEWACM; 

   `mv \'$nacmPath\' \'$oacmPath\'`;