ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     31 May 2003  16:45:16
 To : Sergey Antropov
 Subject : Re: Траблс...
 -------------------------------------------------------------------------------- 
 

 Здравствуй, Sergey Antropov.
 
 SA> if ($ENV{'REQUEST_METHOD'} eq "POST"){read(STDIN, $bufer,
 SA> $ENV{'CONTENT_LENGTH'});}
 SA> else {$ENV{'REQUEST_METHOD'} eq "GET"; $bufer=$ENV{'QUERY_STRING'};}
 
 SA> @pairs = split(/&/, $bufer);
 SA> foreach $pair (@pairs){
 SA>         ($name, $value) = split(/=/, $pair);
 SA>         $name =~ tr/+/ /;
 SA>         $name =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge;
 SA>         $value =~ tr/+/ /;
 SA>         $value =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge;
 SA>         $value =~ s/<!--(.|\n)*-->//g;
 SA>         $value =~ s/\;/;/g;
 SA>         $value =~ s/\ць//g;
 SA>         $value =~ s/\\//g;
 SA>         $value =~ s/<meta+>//g;
 SA>         $value =~ s/\r//g;
 SA>         $FORM{$name} = $value;}
 
 SA> Как ее можно заменить?
 
 foreach my $name (param()) {
   my $value = param($name);
   $value =~ s/<!--(.|\n)*-->//g;
   $value =~ s/\;/;/g;
   $value =~ s/\ць//g;
   $value =~ s/\\//g;
   $value =~ s/<meta+>//g;
   $value =~ s/\r//g;
   $FORM{$name} = $value;}
 }
 
 -- 
 Artem Chuprina
 RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/122.256, ICQ: 13038757
 --- ifmail v.2.15dev5
  * Origin: Leninsky 45 home network (2:5020/400)
 
 

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