Сообщения

1

Perl / Подскажите почему не работает скрипт?

« : 23 Февраля 2002, 11:36:49 »

Может  ктото посветовать почему не работает мой скрипт?

#!/usr/bin/perl
&GetFormInput;
{
   $name=$field{\'name\'};
   $pass=$field{\'pass\'};
   sub GetFormInput { (*fval) = @_ if @_ ;
   local ($buf);
   if ($ENV{\'REQUEST_METHOD\'} eq \'POST\') {
       read(STDIN,$buf,$ENV{\'CONTENT_LENGTH\'});
   } else {
      $buf=$ENV{\'QUERY_STRING\'};
   }
   if ($buf eq "") {
      return 0 ;
   } else {
      @fval=split(/&/,$buf);
      foreach $i (0 .. $#fval){
      ($name,$val)=split (/=/,$fval[$i],2);
      $val=~tr/+/ /;
      $val=~ s/%(..)/pack("c",hex($1))/ge;
      $name=~tr/+/ /;
      $name=~ s/%(..)/pack("c",hex($1))/ge;
      if (!defined($field{$name})) {
         $field{$name}=$val;
      } else {
         $field{$name} .= ",$val";
         }
      }
      } return 1;
   }
   open (OUTFILE, ">>pass2.txt");
      print OUTFILE "$name";
      print OUTFILE "\\n$pass";
      print OUTFILE "\\n=======END=======\\n\\n";
      close (OUTFILE);  
   print "Location: http://localhost/MailForm.htm\\n" ;
}

2

Perl / Помогите пожалуйста!!! (Скрипт для регистрации)

« : 23 Февраля 2002, 11:31:10 »

Поиогите мне пожалусто.

Мне нужно скрипт для регистрации пользователя на моей сайте.

Кто знает потскажите пожалуйста.

                         Заране благодарен!