1. #!/usr/bin/perl
  3. use warnings;
  4. use strict;
  5. use File::Find;
  6. use File::Spec::Functions qw(rel2abs);
  7. use File::Basename;
  8. use Cwd;
  10. my $dir = dirname(rel2abs($0));
  12. my $SCRIPT_NAME = "iphoneos-optimize";
  13. my $PNGCRUSH_NAME="optipng";
  14. my $PNGCRUSH = "/opt/local/bin/$PNGCRUSH_NAME";
  15. my $JPGCRUSH_NAME="jpegoptim";
  16. my $JPGCRUSH = "/opt/local/bin/$JPGCRUSH_NAME";
  18. if ($#ARGV + 1 < 1 or $#ARGV + 1 > 2) {
  19. print STDERR "usage: $SCRIPT_NAME path [-skip-PNGs]\n";
  20. exit 1;
  21. }
  23. my $dstroot = Cwd::realpath(shift);
  24. my $options = shift;
  26. print "$SCRIPT_NAME: Converting plists to binary in $dstroot\n";
  27. find( { wanted => \&optimizePlists }, $dstroot );
  29. exit(0) if defined $options and $options =~ /-skip-PNGs/;
  30. print "$SCRIPT_NAME: Optimizing jpgs in $dstroot\n";
  31. find( { wanted => \&optimizeJPGs }, $dstroot );
  33. print "$SCRIPT_NAME: Optimizing PNGs in $dstroot\n";
  34. find( { wanted => \&optimizePNGs }, $dstroot );
  36. sub optimizePlists {
  37. my $name = $File::Find::name;
  38. if ( -f $name && ($name =~ /\.plist$/i || ($name =~ /\.strings$/i && -s $name > 2))) {
  39. my @args = ( "plutil", "-convert", "binary1", $name );
  40. if (system(@args) != 0) {
  41. print STDERR "$SCRIPT_NAME: Unable to convert $name to a binary plist!\n";
  42. return;
  43. }
  44. print "$SCRIPT_NAME: Converted to binary plist: $name\n";
  45. }
  46. }
  48. sub optimizePNGs {
  49. my $name = $File::Find::name;
  50. if ( -f $name && $name =~ /^(.*)\.png$/i) {
  51. my $crushedname = "$1-pngcrush.png";
  52. my @args = ( $PNGCRUSH, "-o2", "-f0", $name, "-out", $crushedname );
  53. if (system(@args) != 0) {
  54. print STDERR "$SCRIPT_NAME: Unable to convert $name to an optimized png!\n";
  55. return;
  56. }
  57. unlink $name or die "Unable to delete original file: $name";
  58. rename($crushedname, $name) or die "Unable to rename $crushedname to $name";
  59. print "$SCRIPT_NAME: Optimized PNG: $name\n";
  60. }
  61. }
  63. sub optimizeJPGs {
  64. my $name = $File::Find::name;
  65. if ( -f $name && $name =~ /^(.*)\.jpg$/i) {
  66. my @args = ( $JPGCRUSH, "--strip-all", $name );
  67. if (system(@args) != 0) {
  68. print STDERR "$SCRIPT_NAME: Unable to convert $name to an optimized jpg!\n";
  69. return;
  70. }
  71. print "$SCRIPT_NAME: Optimized JPG: $name\n";
  72. }
  73. }

iphoneos-optimize script with JPEG compression