Лог выдаваемы программой Деневер кто незнает что это такое может ознаомиться вот тут http://www.denwer.ru/ как оказалось в даном пакете perl поставляется без стандартных библиотек этим думаю все и объясняется т.к. паралельно пользуюсь еще и AktivPerl он эту работу продеывает замечатеьно без косяков. Т.е. буду искать естьли на сайте разработчика стандартные perl библиотеки и модули.

Alximik просто у тебя нет прагмы strict, об этом лог и пишет. Поэтому отключи ее и запусти снова скрипт.

Поставь себе Apache+perl и проблем не будет.

Цитата(sharq @ 22.7.2005, 11:27)

Alximik просто у тебя нет прагмы strict, об этом лог и пишет. Поэтому отключи ее и запусти снова скрипт. Поставь себе Apache+perl и проблем не будет.

а что это за программа? можно ли ее както поставить? сечас поставил связку Small HTTP Server + perl начала ругаться вот на эту строчку

Код

use CGI (:standard);

а еще возникла следующая проблема тоже как мне кажется довольно страная...

есть вот этот скрипт

Код

#!/usr/bin/perl $i = "тест прошол удачно!"; open (FH, ">>test.txt") || die "error test.txt $!\n"; print FH "$i\n"; close (FH);

когда запускаю этот скрипт из командной строки он почемуто текст в *.txt файл недобовляет если же я запускаю его просто кликом мыши скрипт выполняется нормально в чем может быть дело? пользую все тоже ActivPerl.

Цитата(Alximik @ 22.7.2005, 14:32)

Цитата(sharq @ 22.7.2005, ) Alximik просто у тебя нет прагмы strict, об этом лог и пишет. Поэтому отключи ее и запусти снова скрипт. Поставь себе Apache+perl и проблем не будет. а что это за программа? можно ли ее както поставить?

http://httpd.apache.org/download.cgi

Только определись с версией. Желательно ставить туже, что и на предпологаемом хостинге. есть разница междку ветками 2,х и1,3,х
А перл)) На верху страницы, буквально, есть такой раздел Правила раздела Perl: CGI программирование последний пункт

Цитата

сечас поставил связку Small HTTP Server + perl

Путь настоящего самурая!:)

Цитата

начала ругаться вот на эту строчку Код use CGI (:standard);

Не находит он этот модуль.... Может не входит в поставку.... вообщем попробуй его поставить...

Alximik

Цитата

в чем может быть дело?

Пути разные.

после переустановки perla в купе с Апачем начала выдавать вот это:

Код

syntax error at J:\shttps\www\cgi-bin\gb\my.pl line 3, near "(:" Execution of J:\shttps\www\cgi-bin\gb\my.pl aborted due to compilation errors.

собсевено вот код скрипта:

Код

#!/usr/bin/perl use strict; use CGI (:standard); use Fcntl qw(:flock) my $nick = param('nick'); my $post = param('post'); open FILE, ">> gb.txt" or die "Can't open file: $!\n"; flock FILE, LOCK_SH; print FILE "$nick;;$post\n"; flock FILE, LOCK_UN; close FILE;

т.е. если я правельно считаю синтаксическая ошибка вот тут:

Код

use CGI (:standard);

около "(:" как пишет сервак. что скажите? и кстати если я уберу use strict; какже мне тогда заставить скрипт принимать значения переменых $nick;;$post чтоб потом писать их в фаил?

Цитата

strict Режим ограниченного использования "опасных" операторов

Спасает от глупых ошибок.
Немного подробнее здесь http://www.uic.vsu.ru/support/perlerror.htm
Если уверен, что все будет Ok, можешь не использовать...

Дорогой Alximik

Цитата(Alximik @ 23.7.2005, 21:16)

кстати если я уберу use strict; какже мне тогда заставить скрипт принимать значения переменых $nick;;$post чтоб потом писать их в фаил?

ты путаешь с модулем CGI

Код

use strict; use CGI qw(:standard); use Fcntl qw(:flock); my $nick = param('nick'); my $post = param('post'); open FILE, ">> gb.txt" or die "Can't open file: $!\n"; flock FILE, LOCK_EX; print FILE "$nick;;$post\n"; flock FILE, LOCK_UN; close FILE;

найди отличие!

Читай документацию по модулю CGI

Молодец, что поставил Apache и perl.

возникла такая проблема из формы посыается все теже нещасные nick и post вот код формы (может ошибка в ней)

Код

#!/usr/bin/perl use CGI qw(:standard); print "Content-type:text/vnd.wap.wml\n\n"; require "head.pl"; print "<p align=\"center\">";         print "Nick:<br/><input name=\"nick\" maxlength=\"20\" title=\"nick\" type=\"text\"/><br/>\n";     print "Post:<br/><input name=\"post\" maxlength=\"200\" title=\"post\" type=\"text\"/><br/>\n";     print "<anchor title=\"go\">Enter<go href=\"my.pl\" method=\"post\">";         print "</go></anchor>\n"; print "</p>\n"; require "end.pl";

обробатывает этим данные файл my.pl который должен содержимое строк nick и post записать в текстовый файл

Код

#!/usr/bin/perl use strict; use CGI qw(:standard); use Fcntl qw(:flock); my $nick = param('nick'); my $post = param('post'); open FILE, ">> gb.txt" or die "Can't open file: $!\n"; flock FILE, LOCK_EX; print FILE "$nick : $post\n"; flock FILE, LOCK_UN; close FILE;

а он вместо этого почемуто пишет только : которое стоит между $nick и $post

Код

print FILE "$nick : $post\n";

как мне кажется косяк в форме может кто знаком с wml может помоч? или я неправ?

Alximik косяк в руках

Для того чтобы скрипт my.pl получил поля nick и post их необходимо передать в теге go!
Читай документацию по wml и все станет на свои места.

Код

#!/usr/bin/perl use strict; use CGI qw(:standard); print "Content-type:text/vnd.wap.wml\n\n"; require "head.pl"; print <<WML; <p align="center"> Nick:<br/><input name="nick" maxlength="20" title="nick" type="text"/><br/> Post:<br/><input name="post" maxlength="200" title="post" type="text"/><br/> <anchor>Enter <go href="my.pl" method="post"> <postfield name="nick" value="\$(nick)"/> <postfield name="post" value="\$(post)"/> </go> </anchor> <br/> <do label="Enter" type="accept"> <go href="my.pl" method="post"> <postfield name="nick" value="\$(nick)"/> <postfield name="post" value="\$(post)"/> </go> </do> </p> WML require "end.pl";

К сожалению, проверить не могу, по логике - вроде бы правильно.
Здесь используется два вида отправки данных обработчику.

В скрипте my.pl можешь сделать проверку: если nick и post пустые, то не писать в gb.txt.