#!/usr/bin/perl -w
use strict;
use Image::Magick;

# Bundle a bunch of images into a pdf document
#
# Matches files in given directory according to given regex
# and wraps them in a pdf document

die "Usage: $0 path regex [output_filename]\n" if (! defined $ARGV[1]) ;
my $path = shift;
my $regex = shift;
my $output = (defined $ARGV[0]) ? shift : 'bundle.pdf';

# open path or die
opendir DIR, $path	
	or die "Can't open $path : $!\n";			

# build a list of files with full path matching the regex
my @filelist = map {$path . '/' . $_} 
			grep { -f "$path/$_" && /$regex/} 
				readdir DIR;

# do not proceed further if file list empty
exit if (!defined $filelist[0]);

# call image magick
my $magick = new Image::Magick(format=>"pdf");
my $status;
$status = $magick->Read(@filelist) and warn "Read failed: $status";
$status = $magick->Write("pdf:$output") and warn "Write failed: $status";

#!/usr/bin/perl -w
use strict;
use Image::Magick;

# Bundle a bunch of images into a pdf document
#
# Matches files in given directory according given regex
# and wrap them in a pdf document

die "Usage: $0 path regex [output_filename]\n" if (! defined $ARGV[1]) ;
my $path = shift;
my $regex = shift;
my $output = (defined $ARGV[0]) ? shift : 'bundle.pdf';

# open path or die
opendir DIR, $path	
	or die "Can't open $path : $!\n";			

# build a list of files with full path matching the regex
my @filelist = map {$path . '/' . $_} 
			grep { -f "$path/$_" && /$regex/} 
				readdir DIR;

# do not proceed further if file list empty
exit if (!defined $filelist[0]);

# call image magick
my $magick = new Image::Magick(format=>"pdf");
my $status;
$status = $magick->Read(@filelist) and warn "Read failed: $status";
$status = $magick->Write("pdf:$output") and warn "Write failed: $status";

Requires PerlMagick.

Bundle a bunch of images into a pdf document

image, convert

Perl