|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Michael Samanov 2:550/5068.1515 23 Aug 2000 09:40:33
To : Anton Noginov
Subject : Re: Глупый вопpос.
--------------------------------------------------------------------------------
Hello, Anton!
At Tue, 22 Aug 00 23:14:10 +0400 Anton Noginov wrote:
AN> Вот он не понимает ни чеpез гет, ни чеpез КАК БЫ гет. Только пост,
и
AN> все тут =(
Hу, тогда читаешь RFC и моделируешь ему этой же прокладкой среду
окружения и входной поток. Заодно читаешь man perlipc на предмет,
как делать двунаправленные коммуникации. В общем, чистый мед :-)
А на самом деле прокладка будет в твоем случае совсем простая,
так как POST был и все потоки и переменные уже установлены
(вспоминаем про наследование файловых дескрипторов и переменных
окружения потомком от родителя):
#!/usr/bin/perl
# твой бинарник делает чего ему надо
$s = `binary_executable`;
# меняем form action на себя, родимого
$s =~ s/(<FORM.*?ACTION=").*?(".*?>)/${1}wrapper_name$2/si;
# меняем еще чего там
$s =~ ...;
# отдаем браузеру
print $s;
Sincerely yours, Michael (mailto:mike@vlink.ru).
--- ifmail v.2.14
* Origin: Home (2:550/5068.1515@fidonet)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
