Das Orthogravieh

> Zitate & Sprüche

Inhaltsverzeichnis Zitate & Sprche

Wir haben für Sie viele berühmte Zitate, Sprüche und auch weniger bekannte Sprichwörter und Redewendungen gesammelt. Wählen Sie einfach ein Thema aus der linken Navigation aus.

Zitat des Augenblicks


#!/usr/bin/perl use CGI ':standard'; ############################# # Location of data file ############################# $data_base="quotedata.txt"; ############################# # Setting of font for "Quote" ############################# $qfontstart=""; $qfontend=""; ############################# #Setting of font for "Author" ############################# $afontstart=""; $afontend=""; ############################# DO NOT EDIT BELOW THIS LINE ############################# $category=param('Category'); @data=&read($data_base); print "Content-type: text/html\nPragma: no-cache\n\n"; if (!$category){ srand; foreach $line(@data){ if($line ne "\n"){ push(@data1,$line); } } $index=int(rand $#data1); $selected= $data1[$index]; } else{ foreach $user(@data){ my ($one,$two,$three,$four,$five,$six)=split(/\|/,$user); if($five eq "$category\n"){ push(@new_data,$user); } } srand; $index=int(rand $#new_data); $selected=$new_data[$index]; } ($on,$tw,$thre,$fou,$fiv,$si)=split(/\|/,$selected); if(!$fou){ $fou="Unknown"; } print "$thre

$fou"; sub read{ my ($open_file)=@_; open(DAT, "$open_file") || die("error_cannot_open_file \"$open_file\""); my @data=; close(DAT); return @data; }

Neue Zitate im Plaudergarten

Haben Sie ein Zitat, das Sie gerne den anderen Lesern mitteilen möchten? Bei uns im Plaudergarten haben wir eine spezielle Rubrik, in der Sie Ihre Lieblingszitate bei uns veröffentlichen können: