https://www.opennet.ru/openforum/vsluhforumID3/2581.html Обсуждение статьи тематического каталога: Обработка HTML форм в CGI (perl html cgi web howto)<br><br>Ссылка на текст статьи: http://www.opennet.ru/base/dev/html_form2.txt.html<br><br> https://www.opennet.ru/openforum/vsluhforumID3/2581.html#10 Mon, 13 Feb 2012 23:54:04 GMT 111<br> https://www.opennet.ru/openforum/vsluhforumID3/2581.html#9 Tue, 18 May 2010 16:32:26 GMT Мой респект автору за работу. Программированием занимался, а вот столкнулся с необходимостью склепать сайт - по части книги отзывов обломался.<br>ПХП и ЦЖИ вовсе не освоены. По крайней мере понятно, куда двигаться. Ясно, что весь код не совсем понятен, но из общих прнципов программирования попробуем осилить.Если верно понял, то зто и есть содержание файла script.cgi<br> https://www.opennet.ru/openforum/vsluhforumID3/2581.html#8 Fri, 24 Jul 2009 10:34:20 GMT ГУРУ! Помогите, пож. По образцу статьи сделал скрипт поиска пользователя в домене. <br>cat poisk.html<br>...<br>form METHOD="POST" ENCTYPE="multipart/form-data" action="../cgi-bin/poisk.cgi"<br>Введите фамилию input type="text" name="name" <br>input type="submit" value=" ok "<br>...<br><br>Программа ldap.pl работает сама по себе отлично. А вот в скрипте последняя выполненная команда<br>print $val;<br>дальше тишина.<br><br>#!/usr/bin/perl -w<br><br>########################################<br><br>$program="/usr/local/sbin/ldap.pl";<br><br>sub main::get_parameters {<br> local (*in) = shift;<br> local ($i, $key, $val);<br><br><br>read(STDIN,$in,$ENV{'CONTENT_LENGTH'});<br>@in=split(/&/,$in);<br><br><br>foreach $i (0 .. $#in) {<br> $in[$i] =~ s/\+/ /g;<br> ($key,$val)=split(/=/,$in[$i],2);<br> $val=~s/%(..)/pack("c",hex($1))/ge;<br> $in{$key} .= "\0" if (defined($in{$key}));<br> $in{$key} .= $val;<br> }<br> print $val;<br> return scalar(@in);<br> }1;<br><br><br>&get_parameters(*input);<br> $userName=$input{'name'};<br> $result= `$program c https://www.opennet.ru/openforum/vsluhforumID3/2581.html#7 Mon, 20 Apr 2009 19:27:48 GMT ok!<br> https://www.opennet.ru/openforum/vsluhforumID3/2581.html#2 Wed, 15 Oct 2003 06:32:18 GMT Спасибки народу хоть что-то понял в этой белиберде :))<br> https://www.opennet.ru/openforum/vsluhforumID3/2581.html#1 Mon, 29 Sep 2003 12:21:43 GMT Просто чума!<br>Я раньше нтчего _такого_ не делал, а тут понадобилось - нашел эти слова на opennet и ВСЕ!<br>Спасибо Николаю.<br>