#!/usr/bin/env perl $set = $ARGV[0]; $dir = "summit2015-images".$set; #@files = <{$dir}/tn_BethReynoldsCES15-*.gif>; @files = <{$dir}/tn_*-*.gif>; $jq = "http://code.jquery.com/jquery-latest.min.js"; open(IDX, ">view$set.html"); print IDX <

END for $thumb (@files) { chomp($thumb); $large = $thumb; $large =~ s!tn_!!; $large =~ s!\.gif!.2.jpg!; print IDX <

ENTRY } print IDX < TAIL