Mercurial > laserkard

     1 #!/usr/bin/perl

     2 @rr = glob('*.png');

     3 

     4 $" = "\n";

     5 

     6 print "@rr\n";

     7 

     8 #@rr = @rr[0];

     9 for $t(@rr)

    10 {

    11 

    12 $t =~ m/(.*)\.png/;

    13 $name = $1;	

    14 

    15 

    16 $cmd1 = "convert $name.png -resize 518x ../images/display/$name.jpg";

    17 $cmd2 = "convert $name.png -resize 250x ../images/templates/$name.jpg"; 

    18 

    19 print "$cmd1\n";

    20 `$cmd1`;

    21 print "$cmd2\n";

    22 `$cmd2`;

    23 

    24 

    25 

    26 }
author	rlm
date	Sun, 31 Jan 2010 14:21:14 -0500
parents	2f537455ebf7
children