Сообщения

1

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

« : 23 Июля 2003, 02:00:57 »

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"); и больше никак!
Может как-нибудь переделать? Видимо хостинг такой, потому что у меня всё работает!

2

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

« : 22 Июля 2003, 03:15:37 »

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

3

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

« : 21 Июля 2003, 20:41:57 »

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

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

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