|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : vilfred 2:5020/400 30 Oct 2001 19:55:20
To : All
Subject : есть ли функция, котоая позволяет узнать, какие права у файла?
--------------------------------------------------------------------------------
Привет великомудрому Аллу!!
когда ввожу
ls -la clrav.com
-rwxr-xr-x 1 root root 53248 jan 21 11:26 clrav.com
я напустил на этот файл прогу:
!/usr/bin/perl
use File::stat;
$st = stat("clrav.com") or die "No $file: $!";
print $st->mode,"\n";
дык оно сделало clrav.com исполняемым, а я хотел всего-лишь узнать,
какие у файла права стоят.
а такая прога выдала
!/usr/bin/perl
use File::stat;
$st = stat("clrav.com") or die "No $file: $!";
print $st->mode,"\n";
File::stat=ARRAY(0x813e040)
есть ли какая-нибудь функция на этот счет в perl?
я хочу сделать базу пермишнов для юниха, чтобы можно было в случае чего
восстановить юзера и не хочется говорить каждый раз system("la -la $file");
А то случайно сказал тут chmod -R 777 дык оно мне всю директорию /var/ 777
сделало. Пришлось sendmail переустанавливать...
юзаю линукс.
Спасибо!
Дима
--
TEAM [Маньяки]
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
