VPF::В скрипте прописать chown файлу - Форум программистов

alexandra231525480

Дата 21.3.2007, 20:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 2.9.2006

Репутация: нет
Всего: нет

Здравствуйте!
Скрипт, выполняющийся от рута, создает/перезаписывает файл .txt. Скажите, пжлст, как в скрипте задать ему владельца и группу www:www?

amg

Дата 22.3.2007, 08:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1145
Регистрация: 3.8.2006
Где: Новосибирск

Репутация: 38
Всего: 50

Код


my $user  = 'www';
my $group = 'www';
my $file  = 'file.txt';

my $uid = getpwnam $user  or warn "No user $user\n";
my $gid = getgrnam $group or warn "No group $group\n";

if (defined $uid and defined $gid and -f $file) {
  chown($uid, $gid, $file);
} else {
  warn "Can't chown $user:$group for $file\n";
}

Либо без проверок, одной строкой:

Код


chown scalar(getpwnam $user), scalar(getgrnam $group), $file;

alexandra231525480

Дата 22.3.2007, 12:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 2.9.2006

Репутация: нет
Всего: нет

ох.. проще в обратных кавычках написать smile

)

Код


my $file='text.txt';
`chown www:www $file`;

amg

Дата 22.3.2007, 13:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1145
Регистрация: 3.8.2006
Где: Новосибирск

Репутация: 38
Всего: 50

Цитата(alexandra231525480 @ 22.3.2007, 12:11

)

ох.. проще в обратных кавычках написать

Проще то проще, но безопасность... Тем более, под рутом. Тогда уж system с несколькими аргументами.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »