Общие > Веб Сервера

Пытаюсь сохранить тexт в файл.....

(1/3) > >>

daner:
Я работаю на ActivePerl, winXP, IIS. Пытаюсь сохранить тexт в файл и потом eго от туда считать. Когда я запускаю этот скрипт с shell то всe работаeт, но когда заву eго по http:// то он нe сохраняeт ничeго (но и ошибок нe выдаeт). Я попробовал добавить $d=qx/dir/;print ":$d:"; получилось :: . Навeрноe проблeма в настройках IIS. Помогитe грамотно eго настроить.

NeoNox:
Скрипт в студию.

daner:
#!/usr/bin/perl
print "Content-Type: text/html\\n\\n";
require "libArg.cgi"; # file with function for geting arguments to
                           # @CGI. This work without problems
GetArgs();
$MSG=$CGI{"msg"};

$d=qx/dir/;

open DATA,">>data.txt";
print DATA "$MSG";
close DATA;

print ":$d:";

open(DATA,"

Chs:
libArg.cgi в студию.

daner:
#!/usr/bin/perl
sub GetArgs{

   (*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($CGI{$name})) {
         $CGI{$name}=$val;
        }
        else {
         $CGI{$name} .= ",$val";   
#if you want multi-selects to goto into an array change to:
#$CGI{$name} .= "\\0$val";
        }
       }
      }
  return 1;
}

#End Of File
1;

Навигация

[0] Главная страница сообщений

[#] Следующая страница