VPF::html страницы - Форум программистов

Ivannet

Дата 29.2.2008, 13:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 8.2.2008

Репутация: нет
Всего: нет

Здравствуйте!
С помощью Perl создаю страницу с набором ссылок. Подскажите пожалуйста, можно ли средствами Perl узнать какая была нажата ссылка?

Код


open(RESULT, ">$file" ) or die "Cannot write $file: $!\n";


print ( RESULT "<form style=\"width:250px\">");
print ( RESULT "<fieldset>");
print ( RESULT "<legend> Metrics </legend>");

print ( RESULT "<table width=\"100%\" border=\"0\">" );
print ( RESULT "<tr valign=\"top\">" );
print ( RESULT "<td width=\"75%\">" );
print ( RESULT "<ul>" );
print ( RESULT "<li><a href=\"test1.html\">Test1</a></li> ");
print ( RESULT "<br />" );
print ( RESULT "<li>" );
print ( RESULT "<a href=\"test1.html\">Test 2</a>" );
print ( RESULT "<ul>" );
print ( RESULT "<li><a href=\"test3.html\">Tets2.1</a></li>" );
print ( RESULT "<li><a href=\"test4.html\">Test2.2</a></li>" );
print ( RESULT "</ul>" );
print ( RESULT "</li>" );
print ( RESULT "</ul>" );
print ( RESULT "</td>" );
print ( RESULT "</tr>" );
print ( RESULT "</table>" );

print ( RESULT "</fieldset>");
print ( RESULT "</form>");

ginnie

Дата 29.2.2008, 13:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 38
Всего: 49

Обработку ссылок сделать через скрипт (т.е. ссылки сделать вида process_link.pl?link=1), который будет перенаправлять пользователя на нужный адрес.

--------------------

Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)

Ivannet

Дата 29.2.2008, 14:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 8.2.2008

Репутация: нет
Всего: нет

Здравствуйте! а можете подробнее рассказать что и как smile

или может ссылочку какую, а то не совсем понятно что нужно сделать...(только начинаю изучать)

pr10

Дата 29.2.2008, 20:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 21.2.2007

Репутация: нет
Всего: нет

Через скрипт - это значит что страницу нужно передать в качестве параметра(например имя файла страницы) скрипту.

<a href='/cgi-bin/link.pl?page=test1.html'>test1.html</a>
<a href='/cgi-bin/link.pl?page=test2.html'>test2.html</a>
<a href='/cgi-bin/link.pl?page=test3.html'>test3.html</a>
<a href='/cgi-bin/link.pl?page=test4.html'>test4.html</a>

простой вариант кода link.pl

Код


!#/usr/bin/perl


use strict;
use CGI qw/:standard/;

my $page = param('page'); #Получили имя файла страницы (параметр page)

if ( $page qe 'test1.html' ) { 
    #Действия для test1.html
}

if ( $page qe 'test2.html' ) {
    #Действия для test2.html
}

if ( $page qe 'test3.html' ) {
    #Действия для test3.html
}

if ( $page qe 'test4.html' ) {
    #Действия для test4.html
}

print "Location: http://site.ru/$page\n\n"; #Отправляем на выбранную страницу

Это сообщение отредактировал(а) pr10 - 29.2.2008, 20:37

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »