Создание серверных приложений на языке PERL

Выполним изготовление и монтаж металлические конструкции в Новосибирске и пригороде. Металлоконструкции на заказ.

Изображения ismap - часть 2


Вот пример и покажет это.Заготовьте файл urlmap.txt в котором будет информация из строк в таком формате:

minx miny maxx maxy URL

где minx miny maxx maxy задают участок рисунка,а следующее за ними поле задает URL, которому этот участок соответствует.Пример:

1 1 20 50 http://www.uic.nnov.ru/~paaa/index_p.html 1 50 20 100 http://www.uic.nnov.ru/~paaa/projects.html 20 1 100 100 http://www.uic.nnov.ru/~paaa/cgi-bin/guestbook.cgi

Где нибудь на своей страничке воткните что-то вроде:

<A href="cgi-bin/testismap.cgi"><IMG src="gifs/doom2.jpg" border=0 ismap></A>

А сам скрипт testismap.cgi будет иметь вот такой простенький вид:

#!/usr/bin/perl #testismap.cgi $default_url="http://www.uic.nnov.ru/~paaa/";#URL по умолчанию,переходим к нему когда щелкнули #в участок,которому не сопоставлен URL $url_map_file="urlmap.txt"; #файл с информацией об URL

($x,$y)=split /,/,$ENV{'QUERY_STRING'}; open F,"$url_map_file" || print "Location: $default_url\n\n"; $url=$default_url; foreach(<F>){ chomp; ($minx,$miny,$maxx,$maxy,$URL)=split /\s+/; if(($x>=$minx)&&($x<$maxx)&& ($y>=$miny)&&($x<$maxy)){$url=$URL;} } close F; print "Location: $url\n\n";




Начало  Назад  Вперед



Книжный магазин