Доброго времени суток!
Я в Perl только начинаюший и много не понимаю... Вообщем возникла необходимось создать приметивный скрипт подтверждения. Идея такова: человек заполняет анкету, после заполнения PHP скрипт отсылает на маил указанный в ней письмо, где есть сформированная сылочка типа http://mysite.ru/cgi-bin/script.pl?name=hisname Вообщем передаем параметры скрипту, который отсылает на мой маил этот параметр и текст что регистрация подтверждена. Еще где-то прочитал, что если параметр 1 его можно передавать так http://mysite.ru/cgi-bin/script.pl/hisname , или я что-то путаю?
Заранее благодарен.

Digo

Цитата(Digo @ 12.4.2005, 09:08)

если параметр 1 его можно передавать так http://mysite.ru/cgi-bin/script.pl/hisname

http://mysite.ru/cgi-bin/script.pl?hisname

Вообще-то не hisname, а уникальный ключ, по которому ты определяешь какого пользователя активизировать...

Digo ты можешь параметры передать и так:

http://mysite.ru/reg/hisname

для этоого есть примочка к апачу mod_rewrite, которая сделает перенаправление с http://mysite.ru/reg/hisname на http://mysite.ru/cgi-bin/script.pl?name=hisname

Спасибо!
Да я там немного напутал...
Теперь столкнулся с проблемой как реализовать сам скрипт. Я походу че-то не так делаю или передаю, постоянно серверная ошибка 500. Идея такая кликая по ссылке передаю параметр, который присылается мне в письме... Может кто поможет?

скорей всего у тебя ошибка в первой строке, неверные права на файл или символы с кодом 10 завершают строку.

Решил начать с простого:
вот код

Код

#!/usr/bin/perl my $LastName = param{'lastname'} ; print "Подтверждение: ", param('lastname'),"<BR>";

передаю по ссылке http://mysite.ru/cgi-bin/script.pl?lastname=hisname
Вообщем для начала хочу просто ввыводить параметр переданный ссылкой на экран.
Опять та же фигня... Права 644, путь тот, символы с кодом 10 не знаю что это вроде набирал в блокноте...

Digo вот вот, ты набирал в блокноте у тебя ентер - это два символа 10 и 13, а в юниксе только 13. И шел считает что путь у тебя к #!/usr/bin/perl◙

Где заголовок???
Где подключение модуля CGI.pm???
param() это функция, потому передавать ей значение не нужно в фигурных скобках .
Привыкай всегда использовать use strict, не самая плохая привычка ;)))).
После того как получил параметр и сохранил его в переменную, не используй больше param(), пользуйся только той переменной в которую был сохранён параметр, можешь легко запутаться.

Код

#!/usr/bin/perl use strict; use CGI qw( :standard ); print header( -charset => 'Windows-1251'); my $LastName = param('lastname') ; print "Подтверждение: ", $LastName, "<BR>";

Удачи.

Это сообщение отредактировал(а) korob2001 - 14.4.2005, 16:35

korob2001 это следующий этап.

Цитата

korob2001 это следующий этап.

Secandr - ну может ты и прав, но только вот 500-ю ошибку он будет получать до тех пор, пока не выведет заголовок и не подключит модуль CGI.pm, он ведь пытается юзать param() именно из CGI.pm

Вообщем чинить и чинить...

Очень признателен вам Secandr и korob2001 за консультацию!
Вот только где тогда набирать скрипт если даже блокнот не подходит?

Поставь VI под Windows или используй любой редактор с подсветкой синтаксиса из этой ветки форума: http://forum.vingrad.ru/index.php?showtopic=43960

Заюзай DZSoft Perl Editor 5.4

Скачал DZSoft Perl Editor 5.6 рулит!!! спасибо, korob2001... правда trial до 120 строк кода
Все работает!!!
Теперь буду думать как переданный параметр на свой почтовый ящик отправлять...