Harry Putnam wrote:
Thanks to all ...
Now I'm curious about something else:

Is the mode in a stat(file) readout something still different
than octal or decimal?

I see `33261' show up in the `mode' slot on a file with 755 permissions

(from perldoc -f stat:
[...]
           ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
             $atime,$mtime,$ctime,$blksize,$blocks)
               = stat($filename);
[...]

ls -l file -rwxr-xr-x 1 reader staff 510 2009-07-06 15:25 file

My homemade script `mystat' prints out the various values:

 ./mystat file

   file:
   dev     = 47776050
   ino     = 88208
   mode    = 33261
   nlink   = 1
   uid     = 1000
   gid     = 10
   rdev    = 4294967295
   size    = 510
   atime   = 1246912030
   mtime   = 1246911903
   ctime   = 1246911903
   blksize = 512
   blocks  = 2

The mode field contains more information than just the read/write/execute permissions:

man 2 stat
[ SNIP ]
       The following flags are defined for the st_mode field:

           S_IFMT     0170000   bit mask for the file type bit fields
           S_IFSOCK   0140000   socket
           S_IFLNK    0120000   symbolic link
           S_IFREG    0100000   regular file
           S_IFBLK    0060000   block device
           S_IFDIR    0040000   directory
           S_IFCHR    0020000   character device
           S_IFIFO    0010000   FIFO
           S_ISUID    0004000   set UID bit
           S_ISGID    0002000   set-group-ID bit (see below)
           S_ISVTX    0001000   sticky bit (see below)
           S_IRWXU    00700     mask for file owner permissions
           S_IRUSR    00400     owner has read permission
           S_IWUSR    00200     owner has write permission
           S_IXUSR    00100     owner has execute permission
           S_IRWXG    00070     mask for group permissions
           S_IRGRP    00040     group has read permission
           S_IWGRP    00020     group has write permission
           S_IXGRP    00010     group has execute permission
S_IRWXO 00007 mask for permissions for others (not in group)
           S_IROTH    00004     others have read permission
           S_IWOTH    00002     others have write permission
           S_IXOTH    00001     others have execute permission




John
--
Those people who think they know everything are a great
annoyance to those of us who do.        -- Isaac Asimov

--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/


Reply via email to