• TUX



Perl 5 version 10.1 documentation
Recently read


  • chmod LIST

    Changes the permissions of a list of files. The first element of the list must be the numerical mode, which should probably be an octal number, and which definitely should not be a string of octal digits: 0644 is okay, '0644' is not. Returns the number of files successfully changed. See also oct, if all you have is a string.

    1. $cnt = chmod 0755, 'foo', 'bar';
    2. chmod 0755, @executables;
    3. $mode = '0644'; chmod $mode, 'foo'; # !!! sets mode to
    4. # --w----r-T
    5. $mode = '0644'; chmod oct($mode), 'foo'; # this is better
    6. $mode = 0644; chmod $mode, 'foo'; # this is best

    On systems that support fchmod, you might pass file handles among the files. On systems that don't support fchmod, passing file handles produces a fatal error at run time. The file handles must be passed as globs or references to be recognized. Barewords are considered file names.

    1. open(my $fh, "<", "foo");
    2. my $perm = (stat $fh)[2] & 07777;
    3. chmod($perm | 0600, $fh);

    You can also import the symbolic S_I* constants from the Fcntl module:

    1. use Fcntl ':mode';
    2. chmod S_IRWXU|S_IRGRP|S_IXGRP|S_IROTH|S_IXOTH, @executables;
    3. # This is identical to the chmod 0755 of the above example.