tiltviewer

• gallery.pl

use strict;
use warnings;
use File::Find;
use File::Basename;

print "<tiltviewergallery>\n";
print "\t<photos>\n";

my $top_dir = "imgs/";
find( \&print_file_full_name, $top_dir );
print "\t</photos>\n";
print "</tiltviewergallery>\n";

sub print_file_full_name
{
	if (index($File::Find::name, "jpg") >= 0 ) {
		print qq(\t\t<photo imageurl="$File::Find::name" linkurl="http://www.google.com">\n);
		my $basename = basename($File::Find::name);
		print qq(\t\t\t<title>$basename</title>\n);
		print qq(\t\t\t<description></description>\n);
		print qq(\t\t</photo>\n);
		#print $File::Find::name, "\n"
	}
}

• 5×5くらい

 fo.addVariable("columns", "5");
 fo.addVariable("rows", "5");