Как создавать в Пёрле файлы. Как записывать в них знаю, а как их создавать нет!

[Mers]

Подскажите пожайлуста как создавать файлы в Пёрл через веб-форму!

[Chs]

Ээээ....ну а веб-форма-то причем?
perldoc -f open

[Crey]

Почему при попытке записи в файл
print file $temp
(под Linux) дает ошибку доступа, хотя ведь я под ROOT-ом?

[ondr]

Опиши более подробно, что ты делаешь.
Покажи скрипт.
Не забудь рассказать о том, как ты его запускаешь.
И ошибку сюда выложи.

[Crey]

Вот код

$file_local=">book/b_".$row[0].".bin";
open(file_temp,$file_local);
binmode file_temp;
print file_temp $FILES{"f1"};
close(file_temp);
$dbh->finish;
&disconnect;
$form_mode="book_main";
&to_mode;


Вызываю как CGI-скрипт

[ondr]

Неважно, что ты под рутом если запускаешь под cgi. Твой скрипт работает с полномочиями апачи и права на директории (файлы) должны быть соответствующими.

[NeoNox]

Во первых дескриптора принято писать большими буквами.
Во вторых, ты бы проверил что у тебя возвращает $row[0] $FILES{"f1"}
В третих пиши путь к файлу с корня.
$file_local="/home/user/admin/www/book/b_".$row[0].".bin";
или относительно скрипта
$file_local="./book/b_".$row[0].".bin";