February 2006
Intermediate to advanced
304 pages
6h 16m
English
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.
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 ...