rlm@11: #!/usr/bin/perl rlm@11: rlm@11: rlm@11: chdir "/home/r/Desktop/web/judyates/e2gallerypro/e2upload/Galleries/photos-source/photos-normal"; rlm@11: rlm@11: @names = glob("*.JPG"); rlm@11: rlm@11: $" = "\n"; rlm@11: rlm@11: #print "@names"; rlm@11: rlm@11: rlm@11: for (@names){ rlm@11: /(.*)\.JPG/i; rlm@11: $name = $1; rlm@11: rlm@14: $command = "convert $_ -resize 720X480 -quality 90\% /home/r/Desktop/web/judyates/e2gallerypro/e2upload/Galleries/photos/$name.jpg\n"; rlm@11: print $command; rlm@11: `$command`; rlm@11: rlm@14: $command = "convert $_ -resize 1300X -quality 90\% /home/r/Desktop/web/judyates/e2gallerypro/e2upload/Galleries/photos/large/$name.jpg\n"; rlm@11: print $command; rlm@11: `$command`; rlm@11: rlm@14: $command = "convert ../photos-thumb/$_ -resize 120X120 -quality 90\% /home/r/Desktop/web/judyates/e2gallerypro/e2upload/Galleries/photos/thumbs/$name.jpg\n"; rlm@11: print $command; rlm@11: `$command`; rlm@11: rlm@11: rlm@11: rlm@11: }