Image::Select - Selecting image from images directory.
use Image::Select; my $obj = Image::Select->new(%parameters); my $type = $obj->create($output_path); my ($width, $height) = $obj->sizes($new_width, $new_height); my $type = $obj->type($new_type);
new(%parameters)
Constructor.
debug
Debug mode. Default value is 0.
height
Height of image. Default value is 1920.
loop
Returns images in loop. Default value is 0.
path_to_images
Path to images. It is required. Default value is undef.
type
Image type. List of supported types: bmp, gif, jpeg, png, pnm, raw, sgi, tga, tiff Default value is undef.
width
Width of image. Default value is 1080.
create($path)
Create image. Returns scalar value of supported file type.
sizes([$width, $height])
Set/Get image sizes. Returns actual width and height.
type([$type])
Set/Get image type. Returns actual type of image.
new(): No images. Parameter 'path_to_images' is required. Image type '%s' doesn't supported. Class::Utils: Unknown parameter '%s'. create(): Cannot read file '%s'. Error, %s Cannot resize image from file '%s'. Error, %s Cannot write file to '$path'. Error, %s No file '%s'. Image type '%s' doesn't supported.
use strict; use warnings; use File::Spec::Functions qw(catfile); use File::Temp qw(tempfile tempdir); use Image::Random; use Image::Select; # Temporary directory to random images. my $tempdir = tempdir(CLEANUP => 1); # Create temporary images. my $rand = Image::Random->new; for my $i (1 .. 5) { $rand->create(catfile($tempdir, $i.'.png')); } # Object. my $obj = Image::Select->new( 'path_to_images' => $tempdir, ); # Temporary file. my (undef, $temp) = tempfile(); # Create image. my $type = $obj->create($temp); # Print out type. print $type."\n"; # Unlink file. unlink $temp; # Output: # bmp
use strict; use warnings; use File::Spec::Functions qw(catfile); use File::Temp qw(tempfile tempdir); use Image::Random; use Image::Select; # Temporary directory for random images. my $tempdir = tempdir(CLEANUP => 1); # Create temporary images. my $rand = Image::Random->new; for my $i (1 .. 5) { $rand->create(catfile($tempdir, $i.'.png')); } # Object. my $obj = Image::Select->new( 'loop' => 0, 'path_to_images' => $tempdir, ); # Temporary file. my (undef, $temp) = tempfile(); # Create image. while (my $type = $obj->create($temp)) { # Print out type. print $type."\n"; } # Unlink file. unlink $temp; # Output: # bmp # bmp # bmp # bmp # bmp
Class::Utils, Error::Pure, File::Basename, File::Find::Rule, File::Find::Rule::MMagic, Imager, List::MoreUtils.
Perl class for creating random image.
Selecting image from list with checking.
Selecting image from images directory by date.
https://github.com/michal-josef-spacek/Image-Select
Michal Josef Špaček mailto:skim@cpan.org
http://skim.cz
© 2014-2020 Michal Josef Špaček BSD 2-Clause License
0.05
To install Image::Select, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Image::Select
CPAN shell
perl -MCPAN -e shell install Image::Select
For more information on module installation, please visit the detailed CPAN module installation guide.