NAME
Image::Processor - Perl extension for woking with disk stores of images
SYNOPSIS
use Image::Processor;
Part of the Image::Processor moduleDESCRIPTION
NOTE - This module is in early stages of development. It is hoped that others will help develop it or submit suggestions for improvements. I have tested this on the Windows platform and all the features that support the reason behind starting this project work fine, that is read a CD and create more manageable directories with different image sizes on your hard drive suitable for adding to a web site. I have a modified copy of HTML::PhotoAlbum that I can send if you need a way to manage the albums. Currently only captions and albums are supported.
Image::Processor started out as a single module to interact with a KodakCD. It has grown into a more encompassing project with some interesting tools that will help you hopfully manage your images. It can at present process KodakCD and Wal-Mart Photo CDs produced in 2000. It can also processor a directory of existing photos as well, but this feature is not as mature as the CD reads. One utility allows you to extact all your attachments from your email. It works on all mbox style mail, that includes Netscape (4.7x) on Windows. This utility has not been tested on others, but it is based on Mail::MboxParser which has.
Windows users will need to visit http:://www.imagemagick.org and get the latest imagemagick dll's and PerlMagick. PerlMagick is available via ActiveStates PPM utility, but I have not tested with that version.
Processing is SLOW (2-5 seconds per CD image), due in part to the fact that the images are very large by default on the CD and partly because Image::Magick I believe is slow.
EXPORT
None this is all OOP.
EXAMPLES
use strict; use Image::Processor;
my $improcessor = Image::Processor->new();
#Two techniques. The first will prompt you on the console. #The second will not
#- CONSOLE WAY
$improcessor->console_get_drive(); $improcessor->modify_array( [ { suffix => 'thumb_', percent => '15' }, { suffix => 'med_', percent => '50' }, ] ); $improcessor->prompt_for_output_directory();
#- AUTOMATED WAY
$improcessor->cdrom("E:\\"); # use if you want to get the images from # a lab cd otherwise use something like the line below #$improcessor->source_directory("c:/Program Files/Apache Group/Apache/htdocs/family/photos/CD_263577"); $improcessor->output_directory("c:/Program Files/Apache Group/Apache/htdocs/family/photos");
# this setups the processing information. you can have as many as you # like. Note the default thumbnail HTML page only supports two # different sizes. I have found that the settings below work well # for the CD that I have tested with. If you know your audience is on # a good connection with running high resolution a 50 - 60 on the 'NONE' # would be reasonable $improcessor->modify_array( [ { suffix => 'thumb_', percent => '10' }, { suffix => 'NONE', percent => '30' }, ] );
$improcessor->process(); $improcessor->create_index_html();
# this block shows how you can pass a different template # to the thumbnail_template method or index_template method # to override the default.
#$improcessor->thumbnail_template(qq! #<html> # <head> # <title>COOL Thumbnails of Images from {\$orderid}</title> # </head> # <body> # <a href="../">Return to the Album List</a><br> # <a href="">Return to Album opening page</a><br> # # <table align="center"> # <tr> # { my \$count = 1; # my \$html = ''; # foreach my \$file (\@image_list) { # \$html .= qq~ # <td valign="center" align="center"><a href="\$full_suffix\$file"><img src="\$thumb_suffix\$file"></a><td>~; # if (\$count % \$columns == 0) { \$html .= qq~ # </tr> # <tr>~; } # \$count ++; # } # \$html # } # </tr> # </table> # </body> #</html> #!);
$improcessor->create_index_html();
# create_thumbnails_html requires a minimum of the below # when used with the default template. you can override # this by passing 'is_custom' => 1 as the key value pair.
$improcessor->create_thumbnails_html( { thumb_suffix => 'thumb_', full_suffix => 'med_' } );
Extract Email attachments
my $get_attachments = Image::Processor->new();
$get_attachments->mbox_file("c:/Program Files/Netscape/users/solution/mail/Inbox"); $get_attachments->attachment_output_directory("c:/tmp/test"); $get_attachments->process_file();
METHODS
'process' accepts the following
This method performs resizing and storing of your images
from your source directory source.
'list_images' accepts the following
This will list the images that are in the que to be processed
'copy_images' accepts the following
This is copy an image from one location to another
'write_caption_file' accepts the following
Modifies the caption.xml file in the directory the image is in.
'write_description_file' accepts the following
Writes description.xml to disk, private.
'resize_image' can resize a single image if make_various_sizes
array has at least one hashref in its element list.
'make_various_sizes' - needs an array of hash refs that look like this:
[
{ suffix => 'thumb_', percent => '10' },
{ suffix => 'med_', percent => '30' },
] );
The key suffix is what the files will be suffixed with when resize to the
value associated with the percent key.
These modifications will not effect your source as long as you specify a different
file name and/or output directory.
'resize_images' - default method used to process a list of images, generally used
internally, but can be accessed directly if needed.
'suffix' - internal method used to set the suffix for processing
'percent' - internal method used to set the precent for processing,
but can be accessed externally if you understand how the process method works.
In future releases this may change.
AUTHOR
Aaron Johnson <solution@gina.net>
SEE ALSO
perl.
1 POD Error
The following errors were encountered while parsing the POD:
- Around line 126:
=pod directives shouldn't be over one line long! Ignoring all 6 lines of content