Zufallslink in Perl?

Computer: Software & Programmierung Perl & CGI
1

Hi,

ich suche ein Perlscript, welches aus einer bestehenden Datenbank (zum Beispiel im ASCII-Format) Links inkl. eines Titels zufällig heraussucht und einen davon ausgibt. Hintergrund ist, daß ich auf meiner Startseite sowas in Richtung „Kennen Sie schon ?“ einrichten will.

Kennt jemand ein solches Script?

Danke

Yogi

2

ich suche ein Perlscript, welches aus einer bestehenden
Datenbank (zum Beispiel im ASCII-Format) Links inkl. eines
Titels zufällig heraussucht und einen davon ausgibt.
Hintergrund ist, daß ich auf meiner Startseite sowas in
Richtung „Kennen Sie schon ?“ einrichten will.

http://www.perlscripts.de/pages/Zufallstext/
oder
http://cgi.resourceindex.com/Programs_and_Scripts/Pe…

Klaus

3 
open INF, "; close INF;
srand(); 
$line=$lines[rand(scalar @lines-1)]; 
$line=~m/(.\*?),(.\*?)/;
print '['.$2.'](http://'.%25241.')';

Bei einem angenommen aufbau der Linkdatendatei wie:

linkziel,linktext
www.wer-weiss-was.de,Gute Hilfe-Seite
www.microsoft.de,Microsoft Deutschland


    
    
    Das kam so spontan. Sollte aber laufen. Wenn nicht, schick mir ne mail.
4

print „Content-type: text/html\n\n“;

sollte ausgegeben werden sonst gibts i.d.R. einen Server Error 500

open INF, "; close INF;

besser:

open INF, "’.$2.’’;

weniger Overhead, naja, jetzt werden wir pingelig *g*

print ‚’,$2,’‘;

Klaus

5

print „Content-type: text/html\n\n“;

sollte ausgegeben werden sonst gibts i.d.R. einen Server

Error 500

Naja ich bin davon ausgegangen, daß die Ausgabe in die „Mitte“ einer Seite gehört. Dann dürfte der Header schon ausgegeben sein.

open INF, "; close INF;

besser:

open INF, "’.$2.’’;

weniger Overhead, naja, jetzt werden wir pingelig *g*

print ‚’,$2,’‘;

was ist der unterschied? den komma-op kenn ich nicht.

holli

6

print „Content-type: text/html\n\n“;

Naja ich bin davon ausgegangen, daß die Ausgabe in die „Mitte“
einer Seite gehört. Dann dürfte der Header schon ausgegeben
sein.

Nun, auch bei SSI gehört es trotzdem dahin … Ausnahme bei MS IIS, der setzt den von sich aus davor. Apache z.B. braucht ihn.

srand ist inzwischen mit Perl 5 unnötig

schadet aber auch nicht :wink:

korrekt …

print ‚’.$2.’‘;

weniger Overhead, naja, jetzt werden wir pingelig *g*

print ‚’,$2,’‘;

was ist der unterschied? den komma-op kenn ich nicht.

der Punkt konkateniert die Stringteile und erzeugt einen neuen String bevor dieser ausgegeben wird.
Komma ist nur ein Listentrenner … d.h. es wird Teil für Teil ohne vorherige Aufwendige Konkatenierung ausgegeben.
Performance spielt hier eigentlich keine Rolle, aber wenn man was lernen kann … *g*

7

Super :smile: Danke Euch Beiden …

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]