Zufallsauswahl bei Bildern

[TorstenA]

Hallo Lufti,

Damit hier nicht nur ein PHP-Beispiel steht:

zufallsbild.pl

#!usr/bin/perl -w
use strict;
use warnings;
use File::Find;
no warnings 'File::Find'; # Empfehlung von perldoc.com
my @bilder;
find(&bilderliste, "pfad/zu_den/bildern");
my $nr = int(rand($bilder) + 1);
print "Content-Type: text/html\n\n";
print "<img src='./$bilder[$nr]' alt=''>";

sub bilderliste {
  if ( $_ =~ /.jpg$/ ) { # oder eine andere Bilddateierweiterung
    push(@bilder, $_);
  }
  return;
}

In der HTML-Datei

Dort, wo das Bild hinsoll:
<!--#exec cgi="/cgi-bin/zufallsbild.pl" -->

Gruesse
Torsten

PS: Der Code ist ungestestet, Fehler moege man mir daher verzeihen und sie korrigieren :-)