png2jpg

   1 #!/usr/bin/perl -w
   2 ###APPNAME:     png2jpg
   3 ###APPAUTHOR:   duel
   4 ###APPDATE:     2008-05-16 01:41:05
   5 ###APPVER:      0.1
   6 ###APPDESC:     convert image format from png to jpg
   7 ###APPUSAGE:
   8 ###APPEXAMPLE:  png2jpg
   9 ###APPOPTION:   -d:Delete orignal images
  10 use strict;
  11
  12 #ENV variable MUST be defined somewhere,
  13 #FOR perl to search modules from,
  14 #OR nothing will work
  15 use lib $ENV{XR_PERL_MODULE_DIR};
  16
  17 use MyPlace::Script::Usage qw/help_required help_even_empty/;
  18 exit 0 if(help_even_empty($0,@ARGV));
  19
  20 use MyPlace::Script::Message;
  21
  22 my $delete=shift;
  23 if($delete eq "-d") {
  24     $delete=1;
  25 }
  26 else {
  27     unshift @ARGV,$delete;
  28     $delete=0;
  29 }
  30
  31 sub convert($) {
  32     my $src=shift;
  33     my $dst=$src . ".jpg";
  34     $dst =~ s/\.[^\.]+\.jpg/.jpg/;
  35     app_message "\"$src\" -> \"$dst\"\n";
  36     return (system("convert","$src","jpg:$dst") == 0)
  37 }
  38
  39 if($delete) {
  40     foreach(@ARGV) {
  41         if(convert($_)) {
  42             app_message("Unlinking $_\n");
  43             unlink $_;
  44         }
  45     }
  46 }
  47 else {
  48     foreach(@ARGV) {
  49         convert($_);
  50     }
  51 }
  52