Hi !<br><br><br>Is there way to modify JPG/GIF -images on-fly with Perl?<br><br>I have image-library and i want to show little trumbnails. How can i make on-fly 600k image to smaller trumbnail-image with perl?
If you have got the ImageMagick libraries installed, I believe there is also an ImageMagick module for perl. This should be able to do what you require. Head for your nearest CPAN mirror (details at <A HREF="
Well, like in most Perl cases, there is MTOWTDI, more than one way to do it. The way that AndyBo suggested will work just fine, but if you have a small library of images, you could make an array to the effect of:<br><br><FONT FACE=monospace><br><br>@image_array = qw(image1.jpg image2.jpg image3.jpg image4.jpg) # and so on and so forth<br><br>foreach $image (@image_array) {<br><br>print "<img src=\"$image\" width=\"100\" height=\"100\">\n";<br># you can change with width and height to whatever you might want them to be<br>}<br><br><br></font><br><br>That should do it.<br><br><br>-Vic<br>
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.