Перейти к содержимому

Фотография
- - - - -

вопрос по perl скрипту при работе из html


  • Вы не можете создать новую тему
  • Закрытая тема Тема закрыта
В теме одно сообщение

#1 kit4351

kit4351

    Прохожий

    Топикстартер
  • Новичок
  • 0
    1 сообщ.

Отправлено 31 Март 2010 в 10:47

Всем добрый день, вечер или утро)появилась проблемка, может и дурацкая, но не могу понять. Есть простенький скрипт на Perl запускаю его из html он как и должен выводит новую страницу, но вот на создание файла его не хватает. Хотя запуская из shell файл создается без проблем. Пожалуйста подскажите в чем проблема, заранее благодарю!

#!/usr/bin/perl
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$name =~ s/<!--(.|\n)*-->//g;
$name =~ s/<([^>]|\n)*>//g;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
$value =~ s/<([^>]|\n)*>//g;
$FORM{$name} = $value;
}


open (WRITE,">/home/stas/www/data.txt");
foreach $key (keys(%FORM)) {
print WRITE "$key - $FORM{$key}\n";
}
close(WRITE);


print "Content-type: text/html \n\n";
print "<html>";
print "<head>";
print "<title>Soderzimoe formy</title>";
print "</head>";
print "<body bgcolor=#F0D080 text=#0B615C>";
print "<br>";
foreach $key (keys(%FORM))
{
print "$key - $FORM{$key}\n<br>";
}

  • 0

Спонсор

#2 tusco

tusco

    Прохожий

  • Новичок
  • 0
    2 сообщ.

Отправлено 29 Июнь 2010 в 19:50

99% что проблема в правах на рабочую папку, т.к. пользователи у вас под шеллом и веб-сервером скорее всего разные
  • 0



Похожие темы Свернуть

  Название темы Форум Автор Статистика Последнее сообщение
Статистика

Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 скрытых пользователей