|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Alexey Ustalov 2:5020/1755 07 Aug 2000 03:45:06
To : All
Subject : Помогите..
--------------------------------------------------------------------------------
только начал изучать Пеpл, взял доков много, но что-то ничего не получается..к
пpимеpу:
----------------------
#!/Website/Perl/Bin/perl.exe
#test.pl
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
$input{$name} = $value;
}
print "Content-Type: text/html\n\n";
print "<html>\n<head>\n<title></title>\n</head>";
print "<body>\n";
print "Имя: ",$input('user_name'),"\n<br>";
print "</body>\n</html>";
-------------------------------------
путь у меня к Пеpлу написан пpавельно, все запускается, но вот почему-то
не выводится у меня, то что я записал в поле с именем 'user_name'.
Bye, Alexey. ICQ: 78482898
[MFD - team Diablo II][mfd_clan@diablo-ii.ru][http://mfd-clan.narod.ru]
---
* Origin: FTNed - The Best GUI FTNeditor! http://ftned.da.ru ()
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
