{"id":665,"date":"2007-08-17T11:58:21","date_gmt":"2007-08-17T09:58:21","guid":{"rendered":"http:\/\/planetozh.com\/blog\/2007\/08\/what-chmod-symbolic-to-octal-notation-perl-script\/"},"modified":"2007-08-17T11:58:21","modified_gmt":"2007-08-17T09:58:21","slug":"what-chmod-symbolic-to-octal-notation-perl-script","status":"publish","type":"post","link":"https:\/\/planetozh.com\/blog\/2007\/08\/what-chmod-symbolic-to-octal-notation-perl-script\/","title":{"rendered":"What Chmod ? Symbolic to Octal Notation Perl Script"},"content":{"rendered":"

Have you ever "ls -l<\/em>" a file or directory, watch its "-r-x–s-wT" symbolic notation and ask to yourself: "what the hell is that chmod ?". This was the case for me several times today, so before I spent 1 minute on thinking about the notation, I decided to spent 5 minutes on a quick Perl script. What Chmod<\/strong> converts those stinky —xr-s-wT<\/em> into the octal 3152<\/em> value.
\n<\/p>\n

\n\n\t\t
\n\n\t\t
\n\t\t\t\t\t\t< View plain text<\/span> ><\/a>\n\t\t\t\t\t<\/div>\n\n\t\t
perl<\/div>\n\n\t\t\n\t\t
\n\n\t<\/div>\n\t\n\t
\n\t\t
  1. #!\/usr\/bin\/perl<\/span><\/div><\/li>\n
  2. #===========================================================#<\/span><\/div><\/li>\n
  3. # What Chmod ? Simple Perl utility to convert a symbolic    #<\/span><\/div><\/li>\n
  4. # chmod string (rwxr-x--x) into its octal notation (755)    #<\/span><\/div><\/li>\n
  5. # Ozh - http:\/\/planetozh.com                                #<\/span><\/div><\/li>\n
  6. #===========================================================#<\/span><\/div><\/li>\n
  7.  <\/div><\/li>\n
  8. $arg<\/span> =<\/span> $ARGV<\/span>[<\/span>0<\/span>]<\/span>;<\/span><\/div><\/li>\n
  9.  <\/div><\/li>\n
  10. # no argument or bad argument length<\/span><\/div><\/li>\n
  11. if<\/span> (<\/span>!<\/span>$arg<\/span> ||<\/span> length<\/span> $arg<\/span> <<\/span> 9<\/span> ||<\/span> length<\/span> $arg<\/span> ><\/span>10<\/span> )<\/span> {<\/span><\/div><\/li>\n
  12.         print<\/span> "Usage: $0 <pattern>\\n<\/span>"<\/span>;<\/span><\/div><\/li>\n
  13.         print<\/span> "Example: $0 rwxr-x--x\\n<\/span>"<\/span>;<\/span><\/div><\/li>\n
  14.         exit<\/span>;<\/span><\/div><\/li>\n
  15. }<\/span><\/div><\/li>\n
  16.  <\/div><\/li>\n
  17. # remove the filetype bit<\/span><\/div><\/li>\n
  18. if<\/span> (<\/span>length<\/span> $arg<\/span> ><\/span> 9<\/span>)<\/span> {<\/span><\/div><\/li>\n
  19.         $arg<\/span> =<\/span> substr<\/span>(<\/span>$arg<\/span>,<\/span>1<\/span>)<\/span>;<\/span><\/div><\/li>\n
  20. }<\/span><\/div><\/li>\n
  21.  <\/div><\/li>\n
  22. print<\/span> $arg<\/span>;<\/span><\/div><\/li>\n
  23.  <\/div><\/li>\n
  24. # o: owner, g: group, w:others (world)<\/span><\/div><\/li>\n
  25. (<\/span>$or<\/span>,<\/span>$ow<\/span>,<\/span>$ox<\/span>,<\/span>$gr<\/span>,<\/span>$gw<\/span>,<\/span>$gx<\/span>,<\/span>$wr<\/span>,<\/span>$ww<\/span>,<\/span>$wx<\/span>)<\/span> =<\/span> split<\/span>(<\/span>\/\/,<\/span>$arg<\/span>)<\/span>;<\/span><\/div><\/li>\n
  26.  <\/div><\/li>\n
  27. $o<\/span>=<\/span>0<\/span>;<\/span><\/div><\/li>\n
  28. $g<\/span>=<\/span>0<\/span>;<\/span><\/div><\/li>\n
  29. $w<\/span>=<\/span>0<\/span>;<\/span><\/div><\/li>\n
  30.  <\/div><\/li>\n
  31. # Owner (or User) bit<\/span><\/div><\/li>\n
  32. if<\/span> (<\/span>$or<\/span> eq<\/span> "r"<\/span>)<\/span> {<\/span>$o<\/span> +=<\/span> 4<\/span>;<\/span>}<\/span><\/div><\/li>\n
  33. if<\/span> (<\/span>$ow<\/span> eq<\/span> "w"<\/span>)<\/span> {<\/span>$o<\/span> +=<\/span> 2<\/span>;<\/span>}<\/span><\/div><\/li>\n
  34. if<\/span> (<\/span>$ox<\/span> eq<\/span> "x"<\/span>)<\/span> {<\/span>$o<\/span> +=<\/span> 1<\/span>;<\/span>}<\/span><\/div><\/li>\n
  35. # Setuid bit<\/span><\/div><\/li>\n
  36. if<\/span> (<\/span>$ox<\/span> eq<\/span> "S"<\/span>)<\/span> {<\/span>$s<\/span> +=<\/span> 4<\/span>;<\/span>}<\/span><\/div><\/li>\n
  37. if<\/span> (<\/span>$ox<\/span> eq<\/span> "s"<\/span>)<\/span> {<\/span>$s<\/span> +=<\/span> 4<\/span>;<\/span>$o<\/span> +=<\/span> 1<\/span>;<\/span>}<\/span><\/div><\/li>\n
  38.  <\/div><\/li>\n
  39. # Group bit<\/span><\/div><\/li>\n
  40. if<\/span> (<\/span>$gr<\/span> eq<\/span> "r"<\/span>)<\/span> {<\/span>$g<\/span> +=<\/span> 4<\/span>;<\/span>}<\/span><\/div><\/li>\n
  41. if<\/span> (<\/span>$gw<\/span> eq<\/span> "w"<\/span>)<\/span> {<\/span>$g<\/span> +=<\/span> 2<\/span>;<\/span>}<\/span><\/div><\/li>\n
  42. if<\/span> (<\/span>$gx<\/span> eq<\/span> "x"<\/span>)<\/span> {<\/span>$g<\/span> +=<\/span> 1<\/span>;<\/span>}<\/span><\/div><\/li>\n
  43. # Setgid bit<\/span><\/div><\/li>\n
  44. if<\/span> (<\/span>$gx<\/span> eq<\/span> "S"<\/span>)<\/span> {<\/span>$s<\/span> +=<\/span> 2<\/span>;<\/span>}<\/span><\/div><\/li>\n
  45. if<\/span> (<\/span>$gx<\/span> eq<\/span> "s"<\/span>)<\/span> {<\/span>$s<\/span> +=<\/span> 2<\/span>;<\/span>$g<\/span> +=<\/span> 1<\/span>;<\/span>}<\/span><\/div><\/li>\n
  46.  <\/div><\/li>\n
  47. # Other (or World) bit<\/span><\/div><\/li>\n
  48. if<\/span> (<\/span>$wr<\/span> eq<\/span> "r"<\/span>)<\/span> {<\/span>$w<\/span> +=<\/span> 4<\/span>;<\/span>}<\/span><\/div><\/li>\n
  49. if<\/span> (<\/span>$ww<\/span> eq<\/span> "w"<\/span>)<\/span> {<\/span>$w<\/span> +=<\/span> 2<\/span>;<\/span>}<\/span><\/div><\/li>\n
  50. if<\/span> (<\/span>$wx<\/span> eq<\/span> "x"<\/span>)<\/span> {<\/span>$w<\/span> +=<\/span> 1<\/span>;<\/span>}<\/span><\/div><\/li>\n
  51. # Sticky bit<\/span><\/div><\/li>\n
  52. if<\/span> (<\/span>$wx<\/span> eq<\/span> "T"<\/span>)<\/span> {<\/span>$s<\/span> +=<\/span> 1<\/span>;<\/span>}<\/span><\/div><\/li>\n
  53. if<\/span> (<\/span>$wx<\/span> eq<\/span> "t"<\/span>)<\/span> {<\/span>$s<\/span> +=<\/span> 1<\/span>;<\/span>$w<\/span> +=<\/span> 1<\/span>;<\/span>}<\/span><\/div><\/li>\n
  54.  <\/div><\/li>\n
  55. print<\/span> " = $s$o$g$w\\n<\/span>"<\/span>;<\/span><\/div><\/li>\n
  56.  <\/div><\/li>\n
  57. exit<\/span> 1<\/span>;<\/span><\/div><\/li>\n<\/ol>\t<\/div>\n\n<\/div>\n\n

    Usage :<\/p>\n

    \n\n\t\t
    \n\n\t\t
    \n\t\t\t\t\t\t< View plain text<\/span> ><\/a>\n\t\t\t\t\t<\/div>\n\n\t\t
    code<\/div>\n\n\t\t\n\t\t
    \n\n\t<\/div>\n\t\n\t
    \n\t\t
    1. $ .\/whatchmod rw--w--wT<\/div><\/li>\n
    2. rw--w--wT = 1622<\/div><\/li>\n<\/ol>\t<\/div>\n\n<\/div>\n\n","protected":false},"excerpt":{"rendered":"

      Have you ever "ls -l" a file or directory, watch its "-r-x–s-wT" symbolic notation and ask to yourself: "what the hell is that chmod ?". This was the case for me several times today, so before I spent 1 minute on thinking about the notation, I decided to spent 5 minutes on a quick Perl […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[235,2,3,9],"class_list":["post-665","post","type-post","status-publish","format-standard","hentry","tag-chmod","tag-code","tag-linux","tag-perl"],"_links":{"self":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/posts\/665","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/comments?post=665"}],"version-history":[{"count":0,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/posts\/665\/revisions"}],"wp:attachment":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/media?parent=665"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/categories?post=665"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/tags?post=665"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}