#!/usr/bin/perl # # make_index.pl M.Takimoto 2000/03/20 @n = <*.jpg>; $n = @n; $ncol = 4; print << '__END__'; JPEG LIST __END__ $i = $ncol; foreach $filename (@n) { if($i >= $ncol){ print " \n"; $i = 0; } print " \n"; $i++; } print << '__END__';
\n"; print " \n"; print " $filename \n"; print " \n"; print " $filename\n"; print "
__END__