Make your own free website on Tripod.com

 

 

Nautical sayings ... 
#!/usr/local/bin/perl # # Author name: # Creation date: # # Description: # print "Content-type: text/html\n\n"; open(QUOTES, "< /cgi-bin/quotes.txt") || die $!; my $q = undef; my @quote = (); my $i = 1; for () { chomp; if ($_ eq '%') { if (rand($i) < 1.0) { $q = join("\n", @quote); } $i++; @quote = (); } else { push(@quote, $_); } } close(QUOTES); print $q, "\n";

Click "refresh" to see a new one.

Simplicity Boats Home Page