ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Sergey Babunin                       2:5020/400     31 Mar 2001  01:21:46
 To : All
 Subject : Help
 -------------------------------------------------------------------------------- 
 

 Привет народ!
 Я уже месяца 3 мучаюсь с Перлом и не фига не получается. ПАМОГИТЕ!!!
 Такая проблема у меня надо чтобы было 2 скрипта первый главный например
 #!/usr/bin/perl
 
 &form;
 
 sub form {
 
 if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $query,
 $ENV{'CONTENT_LENGTH'}) }
 if ($ENV{'REQUEST_METHOD'} eq "GET") { $query = $ENV{'QUERY_STRING'} }
 @pairs = split(/&/, $query);
 foreach $pair (@pairs) {
 ($query_name, $query_value) = split(/=/, $pair);
 $query_value =~ tr/+/ /;
 $query_value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
 $FORM{$query_name} = $query_value;}
 }
 
 if ($query_name eq "123"){
 
 do "$dir_cgi$file_123";
 &list ;
 exit;
 }
 
 а во втором ну там например заполнение формы и отправка.
 Только чтобы он с этим же "SUB FORM"  работал. Если можно то поподробнее и
 кодом обясните пожалуйста.
 А то я ваще не везжаю как енто делается.
 
 Заранее благодарю.
 --- ifmail v.2.15dev5
  * Origin: Tiscali / Nacamar (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Help   Sergey Babunin   31 Mar 2001 01:21:46   Re: Help   Andrew   31 Mar 2001 11:23:33