tools/mkimgthumb

   1 #!/usr/bin/env perl
   2 use 5.014;
   3 use warnings;
   4
   5 my $failcount = 0;
   6
   7 for my $src (@ARGV) {
   8         my ($name, @cmds) = split /:/, $src =~ s/\.(\w+)\z//r;
   9         my $ext = $1 // '*';
  10         next if $name =~ m/\./;
  11         unless (-e $src) {
  12                 ($src) = grep {-e} glob qq<"$name"{,:*}.$ext> or next;
  13         }
  14         say $name;
  15         unshift @cmds, -gravity => 'northwest';
  16         push @cmds, -resize => '300x200^', -gravity => 'north', -extent => '300x200';
  17         push @cmds, '-strip', -quality => '60%';
  18         system(convert => @cmds, $src => "../$name.jpg") == 0
  19                 or $failcount += warn "error creating $name.jpg from $src\n";
  20 }
  21
  22 exit $failcount;