opendir(CD, "bmp"); @tiffs = grep(!/^\./, readdir(CD)); # print @tiffs; @tiffs = sort(@tiffs); if (0) { # Generate images foreach $f (@tiffs) { print("$f\n"); $base = $f; $base =~ s/\.bmp//; system("bmptoppm bmp/$f | pnmscale -xysize 640 480 | cjpeg -progressive -quality 75 >html/images/M$base.jpg\n"); system("bmptoppm bmp/$f | cjpeg -progressive -quality 75 >html/images/L$base.jpg\n"); } exit 0; } $docname = 'Insignes de la Désalpe de Lignières'; $keywords = 'insignes desalpe lignieres suisse switzerland'; open(OF, ">html/index.html"); print OF <<"EOD"; $docname
 

$docname

  Home     $next

Cliquez sur les images pour les agrandir. EOD foreach $f (@tiffs) { $base = $f; $base =~ s/\.bmp//; print("$base\n"); $s = `djpeg html/images/M$base.jpg | pnmfile`; $s =~ m/\D*(\d+) by (\d+)\s/; $width = $1; $height = $2; print("$base: $width×$height\n"); print OF <<"EOD";

$base

EOD } print OF <<"EOD";

 

EOD close(OF);