ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/371.32  11 Jul 2000  10:58:14
 To : Dmitry Tyutyunnikov
 Subject : Re: просветите
 -------------------------------------------------------------------------------- 
 

 <Dmitry_Tyutyunnikov@p14.f183.n5010.z2.fidonet.org> wrote:
 
 DT> Hарод просветите плиз, что делает данный кусок кода:
 
 DT> $member=$ENV{'QUERY_STRING'};
 
 DT> if ($member) {
 DT> @pairs=split(/&/,$member);
 DT> foreach $item(@pairs) {
 DT> ($name,$content)=split (/=/,$item,2);
 DT> $content=~tr/+/ /;
 DT> $content=~ s/%(..)/pack("c",hex($1))/__/e;
 DT> if ($INPUT{$name}) { $INPUT{$name} = $INPUT{$name}.",".$content; }
 DT> else {$INPUT{$name} = $content; }}}
 
 DT> else {read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
 DT> @pairs = split(/&/, $buffer);
 DT> foreach $pair (@pairs) {
 DT> ($name, $value) = split(/=/, $pair);
 DT> $value =~ tr/+/ /;
 DT> $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
 DT> if ($INPUT{$name}) { $INPUT{$name} = $INPUT{$name}.",".$value; }
 DT> else { $INPUT{$name} = $value; }}}
 
 То же, что у нормальных людей 
 
 my $q = new CGI;
 map { $INPUT{$_} = join(",",$q->param($_)) } $q->param;
 
 Дальше - perldoc CGI.
 
 -- 
 Счастливо!
   Ран.
 --- ifmail v.2.14.os-p7-tma3
  * Origin: MemoNet (2:5020/371.32@fidonet)
 
 

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

Тема:    Автор:    Дата:    просветите   Dmitry Tyutyunnikov   10 Jul 2000 15:58:00   Re: просветите   Artem Chuprina   11 Jul 2000 10:58:14   Re: просветите   Andrew Zhilenko   12 Jul 2000 00:52:51   Re: просветите   Paul Kulchenko   12 Jul 2000 20:31:30   Re: просветите   Artur Penttinen   12 Jul 2000 00:49:29