Суть вопроста такова:

Есть форма (писана на wml) которая передает методом GET два параметра Ник и Сообщение

Код

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=\"edd_post.pl\" method=\"get\"></go></anchor>\n"; print "</p>\n"; require "end.pl";

в фаил edd_post.pl в котором должны произойти прием и запись этих данных в текстовый фаил.

Как их записать я знаю

Код

open( FH, ">> gb.txt" ) or die $!;         # Добавляем строку в файл         print "$nick, $post!\n";     # Закрываем файл     close( FH );

(если ошибся в коде поправьте)

а вот как их принять? чтобы потом произвелась запись.

Прошу прощения за откровенно ламерский вопрос но просто только начал изучать perl третий день бьюсь неполучается.... отчаился решил написать... Неоткажите в помощи плз...

Alximik все через это проходили, а ты отчаянный, аж три дня бился
Все очень просто, параметры, которые передаются скрипту ты можешь получить, используя стандартный модуль CGI или в ручную. Я советую тебе юзать модуль CGI, потому что это просто

my.pl

Код

use strict; # прагма, которая накладывает некоторые правила и ограничения use CGI qw(:standard); # подключение стандартного модуля CGI use Fcntl qw(:flock); # этот модуль нужен для блокировки и разблокироваки файла my $nick = param('nick'); # получение значения по ключевому значению nick my $post = param('post'); # то же, только по post open FILE, ">> gd.txt" or die "Can't open file: $!\n"; # открытие файла на дозапись flock FILE, LOCK_EX;               # блокировка файла, чтобы никто его не изменял в этот момент print FILE "$nick;;$post\n";    # запись в файл, лучше переменные разделять каким-нибудь  символом  flock FILE, LOCK_UN;              # разблокировка файла  close FILE;                              # закрытие файла

Только для того, чтобы этот скрипт обрабатывал введенную инфо с формы, нужно в форме указать, что этот скрипт является обработчиком данной формы, то есть:
form.html - это тебе для примера

Код

... <form method="get" action="cgi-bin/my.pl">  <input name="nick">  <input name="post"> </form> ...

Надеюсь, разберешься.


Это сообщение отредактировал(а) sharq - 24.7.2005, 10:31

Загляни на http://www.ru-board.com/new/print.php?sid=47
Там с комментариями. Стандартная процедурка... Просто включаешь в скрипты, обрабатывающие формы и все...
Если в коде есть опечатки (всякое бывает), забей в поисковик фразу "Заменяем плюсы на пробелы" - получишь кучу ссылок с тем же самым кодом...
Удачи!

Цитата(sharq @ 21.7.2005, 01:37)

Код print FILE, "$nick;;$post\n";   # запись в файл, лучше п Код close FILE;                                # закрытие файла flock FILE, LOCK_UN;          # разблокировка файла

1) наверное правельно будет записать так
print FILE "$nick;;$post\n"; (убрал запятую) тк если мне память не изменят перл выругается
2)унлок наверное надо делать до того как ты закрыл файл

Всех благодарю за советы буду пробовать. Правдо на этом я от вас пожалуй неотстану Если можно напишите как заставить скрипт читать из файла последние 10 строк причем так что последняя на экран бует выводиться первой?

вот самый простой вариант

Код

#!/usr/bin/perl -w use strict; my (@cnt, $i); my $N = 10; open(F, "<t.txt") || die; @cnt = <F>; close(F); for ($i = $#cnt; $i > ($#cnt-$N); $i--) {   print $cnt[$i];  }

Это сообщение отредактировал(а) chaos - 21.7.2005, 08:09

chaos

Цитата(chaos @ 21.7.2005, 06:38)

1) наверное правельно будет записать так print FILE "$nick;;$post\n"; (убрал запятую) тк если мне память не изменят перл выругается 2)унлок наверное надо делать до того как ты закрыл файл

да именно так, просто не тестировал, а писал по памяти

Про чтение можно так:

Код

open FILE, 'gb.txt'; my @data = <FILE>; close FILE; print join "<br>\n", reverse @data;

Это точно работает.

Цитата(sharq @ 21.7.2005, 11:40)

chaos Цитата(chaos @ 21.7.2005, 06:38) 1) наверное правельно будет записать так print FILE "$nick;;$post\n"; (убрал запятую) тк если мне память не изменят перл выругается 2)унлок наверное надо делать до того как ты закрыл файл да именно так, просто не тестировал, а писал по памяти

не думай что я на тебя бочку качу просто указал чтобы новечек не метался в поисках ошибки
Добавлено @ 11:57

Цитата(sharq @ 21.7.2005, 11:40)

Про чтение можно так: Код open FILE, 'gb.txt'; my @data = <FILE>; close FILE; print join "<br>\n", reverse @data; Это точно работает.

Цитата

Если можно напишите как заставить скрипт читать из файла последние 10 строк причем так что последняя на экран бует выводиться первой?

а у тя он весь файл вываливает

chaos я и не думаю

Я показал как можно не париться с циклом, а обойтись станд. оператором.

А массив при создании, если так необходимо, можно ограничить только 10 записями.

И это уже пустяки...



Это сообщение отредактировал(а) sharq - 21.7.2005, 12:09

Вот и еще однин с удалением из массива просмотренных записей

Код

open FILE, 'gb.txt'; my @data = <FILE>; close FILE; for (my $i=0;$i<10;$i++) {print pop @data}

Вариантов достаточно много.
Все зависит того, что тебе нужно дальше и сколько у тебя записей...

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

Alximik на какой оси ты запускаешь скрипт?
на Windows, тогда тебе права никакие не нужны.
если на nix, то файлам нужно поставить права: 0666.

если ты на Windows-платформе и не получается записать в файл, привели код и логи, если они есть.

Запускаю под Виндой

из формы передается вот в этот скрипт:

Код

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;

а вот это log ошибок

Код

[Thu Jul 21 19:55:34 2005] [error] [client 127.0.0.1] Premature end of script headers: /home/localhost/cgi-bin/gb/my.pl [Thu Jul 21 19:55:34 2005] [error] [client 127.0.0.1] Can't locate strict.pm in @INC (@INC contains: .) at \\home\\LOCALH~1\\cgi-bin\\gb\\my.pl line 2.\n [Thu Jul 21 19:55:34 2005] [error] [client 127.0.0.1] BEGIN failed--compilation aborted at \\home\\LOCALH~1\\cgi-bin\\gb\\my.pl line 2.\n

Здается мне, что у тебя как то по кривому перл встал. По кривому, в смысле отсутсуют некоторые необходимые переменные окружения. В данном случаее @INC , в смысле в ней лежит только текущий каталог. "." А путей, к установленным модулям нету. Уверен, что такиеже сообщения тебя ждут для каждого из подсоединяемых модулей. Так что разбирайся с установкой.

Alximik

Цитата

а вот это log ошибок

Чего-то я не понял, это лог Апача? Если да, то

Цитата

Premature end of script headers: /home/localhost/cgi-bin/gb/my.pl

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

Код

use CGI;                       # load CGI routines $q = new CGI;                  # create new CGI object print $q->header,              # create the HTTP header $q->start_html('hello world'), # start the HTML $q->h1('hello world'),         # level 1 header $q->end_html;                  # end the HTML

Лог выдаваемы программой Деневер кто незнает что это такое может ознаомиться вот тут 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.