#!/usr/bin/perl -w $images = `ls /home/dusting/hart_house/s*.jpg`; if(length($images)==0){ die "no images to display..."; } #@image_list = split(/\n/,$images); $count = 0; print <<"END_HEAD"; Content-type: text/html Interactive Dusting page
END_HEAD foreach(split(/\n/,$images)){ if(`diff $_ /dev/null`) { #image is non-empty;-) $tmpimgname = $_; $_ =~ s/\/home//g; @vindex=split(/\//,$_); $vindex=pop(@vindex); $index = $count*3; $index1 = ($count*3)+1; $index2 = ($count*3)+2; print <<"END_TABLE"; END_TABLE $count = $count +1; } } print <<"END_TAIL";
$vindex
R: G: B:
END_TAIL #print $images;