Сообщество Чайников

Вопрос

Как выводить в ячейку таблицы совет дня, разный при каждом заходе?

Ответ

Нижеследующий фрагмент производит выборку из файла, каждый совет должен быть записан на отдельной строке:

#!/usr/bin/perl
$LIST = 'list';
use CGI;
$HEAD = new CGI;
open(LIST, "$LIST") || die "Can't read $LIST. $!";
srand($$ & time ^ $$);
@all = ;
$ban = splice(@all, int rand @all, 1);
chomp($ban);
print $HEAD->header('text/html');
print "$ban\n";

Файл с советами обзови list и брось рядом со скриптом.