|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : crazy 2:5020/400 12 Apr 2001 19:12:14
To : All
Subject : Re: Как заставить меняться ссылочку вместе с озображением
--------------------------------------------------------------------------------
Здравствуй, Антон!
> а как сделать так, чтобы при
> отражении какой-либо из картинок, ей соответствовала какая-то ссылка (для
> каждой картинки своя ссылка)
%image=('image1.jpg'=>'www.mail.ru',
'image2.jpg'=>'www.ru',
'image3.jpg'=>'www.rambler.ru');
Выбираешь картинку :
$name='image2.jpg';
Выбираешь ссылку:
$href=$image{$name};
Дальше:
print "Content-type: text/html\n\n";
print "<html><title>Баннер</title>";
... ...
print "<a href='http://$href'><img src='/cgi-bin/get_image?$name'
alt='$href'></a>";
... ...
print "</html>";
Скрипт get_image:
#!/usr/bin/perl
$name=$ARGV[0];
print "Content-type: image/jpg\n\n";
open(IMG,$name);
print <IMG>;
close(IMG);
С уважением, Денис.
--- ifmail v.2.15dev5
* Origin: Odessa State Polytechnic University (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
