Как узнать, доступен ли файл для всех?

Как узнать, доступен ли файл для чтения в UNIX?Как узнать, доступен ли файл для всех?

2011-02-08 Tree

$mode = (stat($filename))[2]; 
printf "Permissions are %04o\n", $mode & 07777;

Для извлечения чтения для-других бит вы можете сделать

print "read for everyone" if $mode & 4; # pick bit 2 from mode

источник

2011-02-08 09:52:29 bvr

Не совсем правильная вещь в неясных случаях, когда «другие» могут читать, но «пользователь» или «группа» не могут. Кроме того, лучше использовать File :: Stat и Fcntl, чтобы избежать использования жестко закодированных чисел. – mscha

@mscha Согласитесь, что константы лучше, однако они ничего не говорят мне, пока я не посмотрю документы. В неясных случаях по-прежнему можно выполнить '$ mode & 0444 == 0444'. +1 для вашего примера. – bvr

полностью согласны с тем, что константы слишком загадочны. Однако я не знаю лучшего, правильного современного решения Perl. – mscha

Используйте функцию stat.

источник

2011-02-08 09:25:31

как я могу это сделать? – Tree

@Tree: Если вы когда-либо не знаете команду, проверьте ее с помощью 'perldoc -f stat' или проверки [stat at perldoc.perl.org] (http://perldoc.perl.org/functions/stat.html) – Tim

(относительно) современное решение: использовать File::stat, основной модуль, так как 5.004 и Fcntl , который всегда находился в Perl 5. См. также perldoc -f stat.

use strict; 
use warnings; 
use File::stat; 
use Fcntl qw(:mode); 

... 

my $mode = stat($filename)->mode; 
my $allCanRead = ($mode & S_IRUSR) # User can read 
       && ($mode & S_IRGRP) # Group can read 
       && ($mode & S_IROTH); # Others can read

источник

2011-02-08 13:52:38 mscha

Как узнать, доступен ли файл для всех?

ответ

Смежные вопросы