Срочно, help, не работает скрипт!!!

[Axelman]

Здравствуйте!

Вот написал скрипт на Perl, который записывает отправленные данные в файл с именем пользователя, посылающие эти данные через форму.

Скрипт datasend.cgi, вот его часть:

Форма для отправки данных:
sub send_html {
    print <<"[EOF]";

From: $query{\'name\'}
To: $query{\'toname\'}











[EOF]
}

Процедура записи полученных данных в файл:
sub send {
&findpassword;
&date;
$id = "$date$time$query{\'toname\'}";
            if ($query{\'data\'}) {
            open (datafile, ">>$data_dir/$query{\'toname\'}");
       flock(datafile,2) if ($flocking == 1);
            print datafile "$id|$query{\'name\'}|$date $time|$query{\'data\'}n";
       close datafile;
   } else {
        &send_html;
        exit;
        }
#
}
########################################
$data_dir - предварительно заданная переменная

Проблема: файл не создается и полученные данные не записываются в него.
Получается только, если вместо $query{\'toname\'} в имени файла написать уже определенное значение, например
open (datafile, ">>$data_dir/data.txt"); Но мне нужно, чтобы файл назывался именем пользователя, кому отправлены данные.

Подскажите, пожалуйста, срочно, что делать, чтобы все работало!

[Wyclef]

open (datafile, ">$data_dir/$query{\'toname\'}");

[Axelman]

Wyclef, и что!? ">>" - открывает файл для записи, а данные записываются в конец, а  ">" - открывает файл для записи,но файл полностью очищается. Кто-нибудь может реально помочь? Очень нужно! Всё написано вроде правильно, не могу просто понять в чем дело, всё из-за $query{\'toname\'}. Может можно сделать по-другому или что-то ещё?

[Wyclef]

Axelman:
">>" - открывает файл для записи, а данные записываются в конец, а ">" - открывает файл для записи,но файл полностью очищается.

">>" - открывается файл для дозаписи (файл ДОЛЖЕН заранее существовать), а при ">" - создается файл если его нет (а если есть перепишет).

[off]Проверь у тебя $query{toname} имеет значение во время записи...[/off]

[Alone]

Wyclef
">>" - открывается файл для дозаписи (файл ДОЛЖЕН заранее существовать),

помоему вы ошибаетесь файл создается если его нет...

Axelman
проверь содержимое $query{\'toname\'}
если там все ок то пиши так
open (datafile, ">>$data_dir/$query{\'toname\'}") or print "$!";
выдаст ошибку (если она есть конечно)

[Wyclef]

Wyclef:
файл ДОЛЖЕН заранее существовать

Сорри!!! Беру свои слова обратно...

[ThE0ReTiC]

Wyclef
http://www.perldoc.com/perl5.8.0/pod/func/open.html

If MODE is \'>\', the file is truncated and opened for output, being created if necessary. If MODE is \'>>\', the file is opened for appending, again being created if necessary.

[n0name]

Могу посоветовать:

Код: [Выделить]

1) проверить permissions;
 2) if ($query{\'data\'}) { print $query{\'data\'} ...
 3) $file_name=$query{\'data\'};open(datafile, ">>$data_dir/$file_name");


[Phoinix]

А я обычно ставлю жесткое разрешение на всякий случай...

open (datafile, ">>$data_dir/$query{\'toname\'}\\.txt");

и если трабла с именем, то появляется файл ".txt", а вообще глянь лог ошибок, там обычно все написано...

[Wyclef]

[off]

ThE0ReTiC:
If MODE is \'>\', the file is truncated and opened for output, being created if necessary. If MODE is \'>>\', the file is opened for appending, again being created if necessary.

Зарапортовался - с кем не бывает [/off]

[Axelman]

Alone
Содержимое $query{\'toname\'}  проверял, всё нормально.
open (datafile, ">>$data_dir/$query{\'toname\'}") or print "$!";
ничего не дает, то же самое, белый экран и скрипт после этой строчки не выполняется, как раньше.

n0name
1) permissions в порядке, это видно даже потому, что если я назову файл определенно, то всё будет работать, а так не идет дальше;
2) и 3) не помогает, уже раньше пробовал.

Phoinix
open (datafile, ">>$data_dir/$query{\'toname\'}\\.txt");
результат прежний

Короче, получается только, если вместо $query{\'toname\'} в имени файла написать уже определенное значение, например
open (datafile, ">>$data_dir/data.txt"); и больше никак!
Может как-нибудь переделать? Видимо хостинг такой, потому что у меня всё работает!

[Xander]

а если сделать
print ">>$data_dir/$query{\'toname\'}";
что выдает?

[WildWizard]

Обычно в качестве отладки берется работающий вариант, потом постепенно дописывается все остальное...Пока не прекратит работать, когда это произошло, смотришь на каком шаге...потом читаешь докуменитацию...
В твоем случает.

Проверь такой код:

$file_name = ">>$data_dir/$query{\'toname\'}";
printf ("File name is $file_name
");
open (DATAFILE, $file_name);
print DATAFILE, "Hello World\\n";
close DATAFILE;

Если не работает, то ставишь  
$file_name="./test.txt";
и пробуешь снова, если опять не работаешь создаешь файл ручками, и смотришь открылся он или нет...

Если нет, разводишь ручками и идешь читать доки по хостингу...

Хотя врядли они что-то с этим могли сделать....

Вот...Я надеюсь это были не слишком элементарные вещи.. (смутился)

[WildWizard]

Эй-зй! кстати я забыл совсем, проверяй что вернула функция open (), потому как если файл открыт (создат), то она (функция) вернет тебе 0, если нет то undef...Поэтому посмотри....А то вдруг не открывается он просто....

Кстати еще бывает полезно указать полный физический путь...вот.

[Alone]

Axelman
приведи пример как ты делаеш.
print "Content-type: text/html \\n\\n"; вначале написал ?

что означает фраза "... то же самое, белый экран и скрипт после этой строчки не выполняется, как раньше..."
не вывыполняется как раньше?
или как и раньше не выполняется ?