# perl script to create many-imaged web page for musabi class # written by benjamin fry in august 2001 while at musashino srand(time()^($$ + ($$ << 15))); opendir(DIR, '.') || die $!; @files = readdir(DIR); closedir(DIR); foreach $file (@files) { next if (!($file =~ /(.*)\.jpg$/)); push @list, $1; } open(HTML, ">index.html") || die $!; print HTML "\n"; print HTML " "; print HTML "

\n"; $count = 21; @ordering = decency(); $oindex = 0; &random_line(14, 60, 80); print HTML "
\n"; &random_line(56, 15, 20); print HTML "
\n"; &random_line(28, 30, 40); print HTML "
\n"; &ordered_line(7, 120, 160); print HTML "
\n"; &random_line(28, 30, 40); print HTML "
\n"; &random_line(56, 15, 20); print HTML "
\n"; &ordered_line(7, 120, 160); print HTML "
\n"; &random_line(14, 60, 80); print HTML "
\n"; &ordered_line(7, 120, 160); print HTML "
\n"; &random_line(56, 15, 20); print HTML "
\n"; &random_line(28, 30, 40); print HTML "
\n"; print HTML "

\n"; print HTML " \n"; sub random_line { my ($count, $width, $height) = @_; for ($i = 0; $i < $count; $i++) { $which = @list[randy()]; print HTML "

"; } } sub ordered_line { my ($count, $width, $height) = @_; for ($i = 0; $i < $count; $i++) { $which = @list[@ordering[$oindex]]; $oindex++; print HTML "

"; } } sub randy { $randomizer = rand 65535; $randomizer =~ s/\..*$//; $randomizer = $randomizer % $count; return $randomizer; } sub decency { my @r; for ($i = 0; $i < $count; $i++) { push @r, $i; } for ($i = 0; $i < $count*2; $i++) { $a = randy(); $b = randy(); $temp = @r[$a]; @r[$a] = @r[$b]; @r[$b] = $temp; } return @r; }