Skip to Main Content
Wicked Cool Perl Scripts
book

Wicked Cool Perl Scripts

by Steve Oualline
February 2006
Intermediate to advanced content levelIntermediate to advanced
304 pages
6h 16m
English
No Starch Press
Content preview from Wicked Cool Perl Scripts

#30 Photo Gallery

Taking pictures is only half the fun. The other half is sharing them with your friends and family. This script makes it easy to turn your photograph collection into a web gallery.

The Code

 1 #!/usr/bin/perl -I/usr/local/lib 2 use strict; 3 use warnings; 4 5 # CONFIGURATION SECTION 6 use constant ACROSS => 6; # Number of photos across 7 use constant X_SIZE => 100; 8 use constant Y_SIZE => 150; 9 10 use POSIX; 11 12 use Image::Magick; 13 use Image::Info qw(image_info); 14 15 # 16 # File format: 17 # =title heading/title -- Head/title of the page 18 # =head[1234] -- Heading 19 # =text -- Start text section 20 # =photo -- Start photo section 21 # xxxxxxx.jpg -- Picture 22 # text -- Text 23 24 25 my @photo_list = (); # List ...
Become an O’Reilly member and get unlimited access to this title plus top books and audiobooks from O’Reilly and nearly 200 top publishers, thousands of courses curated by job role, 150+ live events each month,
and much more.
Start your free trial

You might also like

Perl Debugged

Perl Debugged

Peter Scott, Ed Wright
Perl & LWP

Perl & LWP

Sean M. Burke
Pro Perl

Pro Perl

Peter Wainwright

Publisher Resources

ISBN: 1593270623Catalog PageErrata