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 ...