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