Forum Webscript.Ru

Программирование => Perl => Тема начата: от 11 Ноября 2001, 13:14:21

Название: Есть ли такой скрипт?
Отправлено: от 11 Ноября 2001, 13:14:21

Привет.
Я хотел бы спросить есть ли такой скрипт: когда посетитель нажимает на ссылку типа - http://www.smt.ru/cgi-bin/out то он посылается на тот сайт, который выбранн случайно из файла - site.txt ?

Название: Есть ли такой скрипт?
Отправлено: Lion от 11 Ноября 2001, 13:24:04

Конечно есть. На cgi.ru был :)

Название: Есть ли такой скрипт?
Отправлено: cyberg от 12 Ноября 2001, 01:53:12

#!/usr/bin/perl
open(URL,"site.txt");
@url = ;
close (URL);
$rand=int rand(@url);
print "Location: @url[$rand]\\n\\n";

Вот и вся математика