{"id":302,"date":"2011-11-22T14:14:25","date_gmt":"2011-11-22T14:14:25","guid":{"rendered":"http:\/\/www.scmgalaxy.com\/tutorials\/2011\/11\/22\/checking-file-attributes-in-perl\/"},"modified":"2017-12-25T09:11:41","modified_gmt":"2017-12-25T09:11:41","slug":"checking-file-attributes-in-perl","status":"publish","type":"post","link":"https:\/\/www.devopsschool.com\/blog\/checking-file-attributes-in-perl\/","title":{"rendered":"How to Check File Attributes in\u00a0Perl ? Perl File Attributes explained"},"content":{"rendered":"

\"perl-file-attributes\"<\/h2>\n

Checking File Attributes in\u00a0Perl<\/h2>\n

I have been using perl for quite some time now. I have also been using the file handling logic in my scripts. However, what I did not know till now is that you can quickly check for certain file properties in perl. Here is an example:
\n#!\/usr\/bin\/perl
\nmy (@description,$size);
\nif (-e $file)
\n{
\npush @description, \u2018binary\u2019 if (-B _);
\npush @description, \u2018a socket\u2019 if (-S _);
\npush @description, \u2018a text file\u2019 if (-T _);
\npush @description, \u2018a block special file\u2019 if (-b _);
\npush @description, \u2018a character special file\u2019 if (-c _);
\npush @description, \u2018a directory\u2019 if (-d _);
\npush @description, \u2018executable\u2019 if (-x _);
\npush @description, (($size = -s _)) ? \u201c$size bytes\u201d : \u2018empty\u2019;
\nprint \u201c$file is \u201c, join(\u2018, \u2018,@description),\u201d\\n\u201d;
\n}
\nNice, isn\u2019t it?
\nHere is the complete list of features that you can check:<\/p>\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n
Operator <\/strong><\/td>\nDescription<\/strong><\/td>\n<\/tr>\n
-A<\/td>\nAge of file (at script startup) in days since modification.<\/td>\n<\/tr>\n
-B<\/td>\nIs it a binary file?<\/td>\n<\/tr>\n
-C<\/td>\nAge of file (at script startup) in days since modification.<\/td>\n<\/tr>\n
-M<\/td>\nAge of file (at script startup) in days since modification.<\/td>\n<\/tr>\n
-O<\/td>\nIs the file owned by the real user ID?<\/td>\n<\/tr>\n
-R<\/td>\nIs the file readable by the real user ID or real group?<\/td>\n<\/tr>\n
-S<\/td>\nIs the file a socket?<\/td>\n<\/tr>\n
-T<\/td>\nIs it a text file?<\/td>\n<\/tr>\n
-W<\/td>\nIs the file writable by the real user ID or real group?<\/td>\n<\/tr>\n
-X<\/td>\nIs the file executable by the real user ID or real group?<\/td>\n<\/tr>\n
-b<\/td>\nIs it a block special file?<\/td>\n<\/tr>\n
-c<\/td>\nIs it a character special file?<\/td>\n<\/tr>\n
-d<\/td>\nIs the file a directory?<\/td>\n<\/tr>\n
-e<\/td>\nDoes the file exist?<\/td>\n<\/tr>\n
-f<\/td>\nIs it a plain file?<\/td>\n<\/tr>\n
-g<\/td>\nDoes the file have the setgid bit set?<\/td>\n<\/tr>\n
-k<\/td>\nDoes the file have the sticky bit set?<\/td>\n<\/tr>\n
-l<\/td>\nIs the file a symbolic link?<\/td>\n<\/tr>\n
-o<\/td>\nIs the file owned by the effective user ID?<\/td>\n<\/tr>\n
-p<\/td>\nIs the file a named pipe?<\/td>\n<\/tr>\n
-r<\/td>\nIs the file readable by the effective user or group ID?<\/td>\n<\/tr>\n
-s<\/td>\nReturns the size of the file, zero size = empty file.<\/td>\n<\/tr>\n
-t<\/td>\nIs the filehandle opened by a TTY (terminal)?<\/td>\n<\/tr>\n
-u<\/td>\nDoes the file have the setuid bit set?<\/td>\n<\/tr>\n
-w<\/td>\nIs the file writable by the effective user or group ID?<\/td>\n<\/tr>\n
-x<\/td>\nIs the file executable by the effective user or group ID?<\/td>\n<\/tr>\n
-z<\/td>\nIs the file size zero?<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n","protected":false},"excerpt":{"rendered":"

Checking File Attributes in\u00a0Perl I have been using perl for quite some time now. I have also been using the file handling logic in my scripts. However, what I did… <\/p>\n","protected":false},"author":1,"featured_media":3879,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_joinchat":[],"footnotes":""},"categories":[14],"tags":[2679,438,349,2680,2681,1122,545,175,2683,2684,2682,2685,2686,2687,2578,213],"class_list":["post-302","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-perl","tag-attributes","tag-check","tag-file","tag-file-attributes","tag-file-attributes-in-perl","tag-guide","tag-how","tag-perl","tag-perl-attributes","tag-perl-attributes-explained","tag-perl-attributes-tutorial","tag-perl-file-attributes-explained","tag-perl-file-attributes-guide","tag-perl-file-attributes-reference","tag-perl-tutorial","tag-tutorial"],"_links":{"self":[{"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/posts\/302","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/comments?post=302"}],"version-history":[{"count":2,"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/posts\/302\/revisions"}],"predecessor-version":[{"id":3881,"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/posts\/302\/revisions\/3881"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/media\/3879"}],"wp:attachment":[{"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/media?parent=302"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/categories?post=302"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.devopsschool.com\/blog\/wp-json\/wp\/v2\/tags?post=302"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}