Mercurial > laserkard
annotate laserkard_source_images/convert.pl @ 37:021a9ab1ed5b laserkard
[svn r38] added echo.pl, a test program for the backend of the website
| author | rlm |
|---|---|
| date | Sun, 24 Jan 2010 09:37:47 -0500 |
| parents | 2f537455ebf7 |
| children |
| rev | line source |
|---|---|
| rlm@15 | 1 #!/usr/bin/perl |
| rlm@15 | 2 @rr = glob('*.png'); |
| rlm@15 | 3 |
| rlm@15 | 4 $" = "\n"; |
| rlm@15 | 5 |
| rlm@15 | 6 print "@rr\n"; |
| rlm@15 | 7 |
| rlm@15 | 8 #@rr = @rr[0]; |
| rlm@15 | 9 for $t(@rr) |
| rlm@15 | 10 { |
| rlm@15 | 11 |
| rlm@15 | 12 $t =~ m/(.*)\.png/; |
| rlm@15 | 13 $name = $1; |
| rlm@15 | 14 |
| rlm@15 | 15 |
| rlm@18 | 16 $cmd1 = "convert $name.png -resize 518x ../images/display/$name.jpg"; |
| rlm@18 | 17 $cmd2 = "convert $name.png -resize 250x ../images/templates/$name.jpg"; |
| rlm@15 | 18 |
| rlm@18 | 19 print "$cmd1\n"; |
| rlm@18 | 20 `$cmd1`; |
| rlm@18 | 21 print "$cmd2\n"; |
| rlm@18 | 22 `$cmd2`; |
| rlm@15 | 23 |
| rlm@15 | 24 |
| rlm@15 | 25 |
| rlm@15 | 26 } |