|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Igor Kachev 2:5000/117.18 15 Aug 2000 22:34:19
To : Artem Chuprina
Subject : Re: Помогите..
--------------------------------------------------------------------------------
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>";
^^^^^^^^^^^^^
$input{'user_name'} - разницу видишь ?
AU>> print "</body>\n</html>";
AU>> -------------------------------------
AU>> путь у меня к Пеpлу написан пpавельно, все запускается, но вот
AU>> почему-то не выводится у меня, то что я записал в поле с именем
AU>> 'user_name'.
AC> Выкинь этот пример и прочти _внимательно_, во-первых, описание тега
AC> <FORM> в HTML и окружающие ссылки, дабы представлять, какие бывают
AC> способы передачи данных серверу, а во-вторых, perldoc CGI. Указывать
AC> на ошибки в твоем скрипте, которые помешают тебе выдать это имя даже
AC> если оно туда попало как положено, я тебе указывать не буду, хотя они
AC> там есть. Дабы не поощрять изобретателей велосипедов, особенно если
AC> колеса у оных велосипедов треугольные.
//Meverik
... mailto: ygrik@online.sinor.ru ICQ:43818402
--- B04B 826D 63B9 296A B063 20B3 6D1D A0DC
* Origin: Шашки наголо! (2:5000/117.18)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
