|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Ђв® …ўбҐҐў 2:5020/400 06 Apr 2001 15:23:34
To : All
Subject : Re: Как заставить меняться ссылочку вместе с озображением
--------------------------------------------------------------------------------
> Здравствуй, Антон Евсеев.
> mprr> Вот такой скрипт выводит мне картинки ($mypic), а как сделать так,
чтобы
> mprr> при отражении какой-либо из картинок, ей соответствовала какая-то
ссылка
> mprr> (для каждой картинки своя ссылка)
> mprr> #!/bin/perl
> mprr> $|=1;
> mprr> $mypic[0]="../photos/10l.jpg";
> mprr> $mypic[1]="../photos/11l.jpg";
> mprr> $mypic[2]="../photos/12l.jpg";
> mprr> $mypic[3]="../photos/1l.jpg";
> mprr> srand(time ^ $$);
> mprr> $pick = rand(@mypic);
> mprr> print "Content-type: image/gif\n\n";
> mprr> open (BANNER,$mypic[$pick]);
> mprr> print <BANNER> ;
> mprr> close (BANNER);
>
> Hикак. Текст ссылки уже давно отдан, и та сессия записана в лог и закрыта.
А если, скажем, из этого скрипта запускать другой, только чтоб во второй
передавался номер $mypic, а там определялась ссылка для этой картинки?
Как я понял, именно это делают простые баннерокрутилки, но, облазив
www.cgi.ru и все адреса, описанные в Факе ничего простого и умеющего
работать без SSI не нашёл. может есть простенькая баннерокрутилка?
Сам я нашёл, но она сложная, ведёт статистику, имеет администраторский
модуль. Может поможет кто переделать её в более простую?
--
С уважением Антон Евсеев.
HomePage: http://tourism.perm.ru
E-mail: miracle@perm.raid.ru
Fidonet: 2:5054/27.18
--- ifmail v.2.15dev5
* Origin: RAID-Internet (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Как заставить меняться ссылочку вместе с озображением