Forum Webscript.Ru

Программирование => Perl => Тема начата: glebushka от 12 Апреля 2002, 01:12:12

Название: Создание файла скриптом...
Отправлено: glebushka от 12 Апреля 2002, 01:12:12

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

Название: эээ, может я и не понял..
Отправлено: Green Kakadu от 12 Апреля 2002, 02:48:17

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 от 12 Апреля 2002, 02:56:54

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

Название: perldoc -f open
Отправлено: Green Kakadu от 12 Апреля 2002, 03:00:16

Цитировать

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

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

Название: Создание файла скриптом...
Отправлено: glebushka от 12 Апреля 2002, 03:02:49

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

Название: Создание файла скриптом...
Отправлено: glebushka от 12 Апреля 2002, 03:07:46

ЭЭЭЭ
Выдаёт ошибку:
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 от 12 Апреля 2002, 03:16:38

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

Название: Создание файла скриптом...
Отправлено: Green Kakadu от 12 Апреля 2002, 03:17:24

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

Название: а зря ты книжку себе не скачаешь
Отправлено: Green Kakadu от 12 Апреля 2002, 03:22:01

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

Название: Создание файла скриптом...
Отправлено: glebushka от 12 Апреля 2002, 03:35:49

Цитировать

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

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

Название: Создание файла скриптом...
Отправлено: Green Kakadu от 12 Апреля 2002, 04:36:06

Цитировать

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

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