Форум программистов [Powered by Invision Power Board]

Код

<?
$dir = '/afs/***/***/';
echo view_perms($dir);
function view_perms($o) {
 if (!is_readable($o)) {return 0;}
 elseif (!is_writable($o)) {return 0;}
 else {return 1;}
}
?>

Код

#!/usr/bin/perl -w
my $dir = '/afs/***/***/';
print view_perms($dir);
sub view_perms {
    my $path = shift;
    if (-r $path) {
        if (-w $path) {
            return 1;
        }
    }
    return 0;
}

Код


#!/usr/bin/perl

Код


#!/usr/bin/perl -w
my $dir = '/afs/***/***/';
print view_perms($dir);
sub view_perms {
    return -r $_[0] && -w $_[0];
}

Цитата(sir_nuf_nuf @ 4.1.2009, 02:23)

эх.. пишем на перл

Код


#!/usr/bin/perl -w
my $dir = '/afs/***/***/';
print view_perms($dir);
sub view_perms {
    return -r $_[0] && -w $_[0];
}

Код


#!/usr/bin/perl -w
my $dir = '/afs/***/***/';
print view_perms($dir);
sub view_perms {
    my $path = shift;
    if (-r $path) {
        if (-w $path) {
            return 1;
        }
    }
    return 0;
}

Код


#!/usr/bin/perl -w

my $dir = '/afs/***/***/';
print view_perms($dir);
sub view_perms {
    my $path = shift;
    unless (-r $path or -w $path) {
        return 0;
    }
    return 1;
}

Код


#!/usr/bin/perl -w

print view_perms($ARGV[0]), "\n";

sub view_perms {
    my $path = shift;
    unless (-r $path or -w $path) {
        return 0;
    }
    return 1;
}

Цитата

[nitr@SamsungQ210 ~]$ perl test.pl /home/1
0
[nitr@SamsungQ210 ~]$ chmod 755 /home/1
[nitr@SamsungQ210 ~]$ perl test.pl /home/1
1
[nitr@SamsungQ210 ~]$

Цитата

Пользователю также необходимо иметь представление о том, что в системе AFS специфическим образом определены права и группы доступа к файлам и каталогам. Права доступа: r — чтение, w — запись, l — право просмотра списка файлов в каталоге, i — создание новых файлов и подкаталогов, d — удаление файлов и подкаталогов, k — блокирование файлов, a — полномочия изменять права и группы доступа к файлу или каталогу. Наиболее часто используются следующие три группы доступа: это любые (отовсюду, где используется AFS) AFS-пользователи (system:anyuser), любые пользователи данной организации (system:authuser) и системные администраторы данной организации (system:administartors).

Вся информация по правам и группам доступа к файлам и каталогам хранится в специальных таблицах AFS, называемых ACL (Access Control List), где определены права доступа к файлам и каталогам. Ознакомиться с содержанием этих таблиц, т.е. получить информацию по состоянию доступа к файлу или каталогу, можно с помощью команды

fs listacl <file_name> или <dir_name>

Код

#!/usr/bin/perl -w

printf "%04o\n", (stat $ARGV[0])[2] & 07777;

Код


use filetest 'access';

Код


use filetest 'access';