|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Artem Chuprina 2:5020/371.32 10 Aug 2000 12:17:03
To : Alexey Ustalov
Subject : Re: Помогите..
--------------------------------------------------------------------------------
<Alexey_Ustalov@f0.n0.fidonet.org> wrote:
AU> только начал изучать Пеpл, взял доков много, но что-то ничего не
AU> получается..к пpимеpу:
AU> ----------------------
AU> #!/Website/Perl/Bin/perl.exe
AU> #test.pl
AU> read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
AU> @pairs = split(/&/, $buffer);
AU> foreach $pair (@pairs) {
AU> ($name, $value) = split(/=/, $pair);
AU> $value =~ tr/+/ /;
AU> $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
AU> $value =~ s/<!--(.|\n)*-->//g;
AU> $input{$name} = $value;
AU> }
AU> print "Content-Type: text/html\n\n";
AU> print "<html>\n<head>\n<title></title>\n</head>";
AU> print "<body>\n";
AU> print "Имя: ",$input('user_name'),"\n<br>";
AU> print "</body>\n</html>";
AU> -------------------------------------
AU> путь у меня к Пеpлу написан пpавельно, все запускается, но вот почему-то
AU> не выводится у меня, то что я записал в поле с именем 'user_name'.
Выкинь этот пример и прочти _внимательно_, во-первых, описание тега <FORM> в
HTML и окружающие ссылки, дабы представлять, какие бывают способы передачи
данных серверу, а во-вторых, perldoc CGI. Указывать на ошибки в твоем скрипте,
которые помешают тебе выдать это имя даже если оно туда попало как положено, я
тебе указывать не буду, хотя они там есть. Дабы не поощрять изобретателей
велосипедов, особенно если колеса у оных велосипедов треугольные.
--
Счастливо!
Ран.
--- ifmail v.2.14.os-p7-tma3
* Origin: MemoNet (2:5020/371.32@fidonet)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
