Connect failed: Connection timed out

[GastForen Archiv Perl und CGI

  • Suche
  • Hilfe
  • Lesezeichen
  • Benutzerliste

Kalenderwochen Script???

SabineP
Beiträge gesamt: 7586

29. Apr 2002, 20:22
Bewertung:

gelesen: 6718

Beitrag als Lesezeichen
Naja, warum wegen 52 Zeilen gleich den Datenbankserver anwerfen. So gehts mit Perl:



Code:
 

#!/usr/bin/perl



# die link.txt sieht so aus



# <a href="http://www.google.de">Hier gehts zu google</a>

# <a href="http://www.yahooh.de">Hier gehts zu yahoo</a>



print "Content-type: text/htmlnn";



$day_of_year = (localtime(time()))[7];

$week_of_year = int($day_of_year / 7);



open(DAT,"<link.txt");



$i=0;

while(<DAT>){



if($i>=$week_of_year){

$link = $_;

last;

}

$i++;

}

close DAT;



print qq|$link<br>|;



exit;






Demo hier:

http://sperner.50free.net/forum/wochenlink/wochenlink.pl



Hier steht jetzt jede Woche ein neuer Link.

[ Diese Nachricht wurde geändert von: SabineP am 2002-04-29 20:33 ]

(Dieser Beitrag wurde von SabineP am 3. Feb 2004, 14:05 geändert)
Dieser Beitrag wurde nicht geändert.