#!/usr/local/bin/perl -w
# fortune.pl -- Waehlt zufaelligen Fortune-Satz aus.

$fortune = "/usr/share/games/fortune/fortunes";
$/       = "%\n";

open(FORTUNE, $fortune) or die "can't open fortune file: $!\n";

# <FORTUNE> liefert immer einen ganzen Datensatz, in $_
# $. ist die Nummer des aktuellen Datensatzes.
# Die folgende Zeile (Recipe 8.6, Perl Cookbook) liefert
# einen zufaelligen Datensatz aus der Fortune-Datei.
rand($.) < 1 && ($line = $_) while <FORTUNE>;

chomp $line; print $line;
close(FORTUNE);