Validering af filer

#!/usr/bin/perl

@files = ('filename1.jpg','filename2.jpg','filename3.jpg');

print "Content-type: text/html\n\n";

print '<HTML><HEAD>TITLE>TEST</TITLE></HEAD><BODY>';

foreach $file (@files) {
if (open(HANDLE,"< $file") {
print "<IMG src=\"$file\" alt="image"><BR>";
close(HANDLE);
}
}
print '</BODY></HTML>';






dette er kun en idé... det er ikke testet... men jeg håber det virker... bemærk, at filnavne bør hardcodes i filen... ellers skal der laves et check på, om filnavnet indholder mystiske tegn...

vil det være muligt at bruge en variabel som filename... fx

ja... det er muligt...