Chuck's Photos
[ Chuck's stuff on skein.org ]
<%perl>
open (FILE, "/home/cgroom/public_html/photo.meta") or die "$!";
my %collections;
while () {
chomp($_);
my @set = split /\|/, $_;
my $name = shift @set;
next if (!$name);
if ($collections{$name}) {
push @{$collections{$name}}, \@set;
} else {
my @sets;
push @sets, \@set;
$collections{$name} = \@sets;
}
}
close FILE;
% my $width = 100 /(scalar(keys %collections));
% foreach my $key (keys %collections) {
<% $key %> |
% }
% foreach my $key (keys %collections) {
|
|
% }