Hier die original Post aus nem andren Forum wo mir keiner helfen kann: Moin,
Hab mir hier den Zufallsbanner_easy runtergeladen.
Isn Perl-Script:
Code
#!/usr/bin/perl ############################################################## ## Einfaches Programm zur Auswahl eines Zufallsbanners. ## ## Zum Einbau in bestehende Perl-Dateien oder zur Nutzung ## ## über SSI. Im gleichen Verzeichnis wie diese Datei ## ## oder die Datei, in die der Code eingebaut wird, muss ## ## eine Datei mit dem Namen 'banners.txt' sein. In diese ## ## Datei kann pro Zeile der HTML-Code für jeweils einen ## ## Banner. Per Zufall wird eine der Zeilen ausgewählt und ## ## der entsprechende Code ausgegeben. ## ##############################################################
## Zufallsbanner-Auswahl open(DATA, "<banners.txt"); @data=<DATA>; close DATA; foreach(@data) {chomp($_);} $anzahl_banner=$#data+1; $zufallsbanner_nummer= int(rand($anzahl_banner)); $bannercode=$data[$zufallsbanner_nummer]; ## Ende Zufallsbanner-Auswahl
Copyright 1999 - 2024 by www.ocinside.de - All rights reserved.
Unser PC Forum verwendet Cookies für einen optimalen Service. Durch die Nutzung dieser Webseite erklären Sie sich damit einverstanden, dass wir personenbezogene Daten wie z.B. die IP-Adresse speichern und wir zusammen mit Drittanbietern Cookies verwenden, um personalisierte Anzeigen zur interessengerechten Werbung und weitere externe Inhalte anzuzeigen. Einverstanden? Ja / Nein ImpressumDatenschutzEinstellungen