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

kit4351 · 31.03.2010, 10:32

Всем добрый день, вечер или утро)появилась проблемка, может и дурацкая, но не могу понять. Есть простенький скрипт на 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>";
}

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
JavaScript для поиска данных в текстовых БД - Вопрос по скрипту	tatka	HTML, CSS, JavaScript	1	18.06.2010 02:23
Простой вопрос по HTML	Козлова М.	HTML, CSS, JavaScript	3	14.02.2009 21:59
Вопрос по поводу таблицы в html	aspirin	HTML, CSS, JavaScript	6	30.07.2008 17:03
Вопрос по скрипту Аукциона Php Pro Bid	reg24r	ASP, Perl, PHP и MySQL	1	30.01.2006 17:46
Вопрос по Html	graphh	HTML, CSS, JavaScript	2	19.08.2003 18:11

Опции темы
Версия для печати Отправить по электронной почте

31.03.2010, 10:32
Ссылки