Создание файла скриптом...

[glebushka]

Мне нужно, чтобы скрипт создавал новый файл, пишу:
print "$loginu"; #проверяю значение переменной...
open FF, "< $loginu.pl";#с отчаинья написал:), может и не #нужно
sysopen FF, "$loginu.pl", O_CREAT;# пытаюсь создать...
close(FF);# Ну и закрываю, чтоб не мешал
Так вот скрипт работает без ошибок... Только новый файл не создаёт... В чём дело?
Может в хостинге? Хостинг хат.ру называется...

[Green Kakadu]

open(FILE, ">$loginu.pl") or die("Can not open? reason: $!");
print FILE \'Это мой файл, руки прочь!\';
close(FILE) or die("Can not close FILE, reason: $!");
#Поставим права, если хочешь
chmod(0775,$loginu.pl) or die("Can not chmod $loginu.pl, reason: $!");

[glebushka]

Неа, мне нужно создать не существующий файл!

[Green Kakadu]

Неа, мне нужно создать не существующий файл!

такой и создается
>file.ext - если файл есть, то он очищается и открывается, если его нет, то он создается и открывается
>>file.txt - только он не очищается, а данные в конец пишутся (ну а если такого нет, то создается)

[glebushka]

Понятно, спасибо!

[glebushka]

ЭЭЭЭ
Выдаёт ошибку:
Software error:
Can not chmod 9.pl, reason: No such file or directory at tmplog.cgi line 150.
То есть файл не создан, напечатал так, как ты сказал, ВООБЩЕ без изменений!
open(FILE, ">$loginu.pl") or die("Can not open? reason: $!");
print FILE \'Это мой файл, руки прочь!\';
close(FILE) or die("Can not close FILE, reason: $!");
#Поставим права, если хочешь
chmod(0775,$loginu.pl) or die("Can not chmod $loginu.pl, reason: $!");

[glebushka]

Самое прикольное, что файл он создал!
И даже записал туда данные:)
Но почему ошибка?

[Green Kakadu]

ошибся я маненечко, кавычки в имени файла не поставил, надо так:
chmod(0775,"$loginu.pl") or die("Can not chmod $loginu.pl, reason: $!");

[Green Kakadu]

perl cookbook - rulezz! не поленись, скачай (в FAQt вроде есть ссылки, если нет, я поищу - где то я это поимел). Там действительно достойный пример для подражания и затронуты все основные вопросы. Даже английского знать не нужно - его там меньше чем перла и книжка позанимательней мануала будет

[glebushka]

в FAQt вроде есть ссылки, если нет, я поищу - где то я это поимел).

Насчёт ФАК:
404: file not found
А если кинешь ссылку, то буду благодарен... Не поленюсь, скачаю...

[Green Kakadu]

А если кинешь ссылку, то буду благодарен... Не поленюсь, скачаю...

http://perl.artil.ru/docs/bookshelf/index.shtml
меню для скачивания, а вот прямые ссылки (оттудова):

Perl in a Nutshell http://perl.artil.ru/zip/bookshelf/perlnut.tar.gz

Learning Perl  http://perl.artil.ru/zip/bookshelf/learn.tar.gz

Advanced Perl Programming (~900кб) http://perl.artil.ru/zip/bookshelf/advprog.tar.gz

Perl Cookbook (~700kb)  http://perl.artil.ru/zip/bookshelf/cookbook.tar.gz