How to detect a folder/directory

Hello all. I am using Teamsite 5.5.2 on Windows and I was wondering how to detect whether or not a file encountered programmatically is a file or a folder/directory. I want to make sure that a given directory only contains subdirectories. If it contains a file then I want to ignore that file and only regard the subdirectories. Here's what I'm doing:

#Open the directory to search
opendir(DIR, "Y:/default/.../templatedata/article/data");
@files = readdir(DIR);
closedir(DIR);

#--- loop thru the data directory
foreach $file (@files) {
#--- open the folders in the data directory
opendir(DIR1, "Y:/default/.../templatedata/article/data/$file");
@files1 = readdir(DIR1);
closedir(DIR1);

###### Here is where I need to determine if I've encountered a file or a folder ################

#--- make sure to exclude the directory markers.
if (($file ne ".") && ($file ne "..")) {
#more stuff...

Edited by rossnoe on 04/04/05 01:48 PM (server time).

Find more posts tagged with

Comments

jbonifaci

-r File or directory is readable

-w File or directory is writable

-x File or directory is executable

-o File or directory is owned by user

-R File or directory is readable by real user, not effective user (differs from -r for setuid programs)

-W File or directory is writable by real user, not effective user (differs from -w for setuid programs)

-X File or directory is executable by real user, not effective user (differs from -x for setuid programs)

-O File or directory is owned by real user, not effective user (differs from -o for setuid programs)

-e File or directory exists

-z File exists and has zero size (directories are never empty)

-s File or directory exists and has nonzero size (the value is the size in bytes)

-f Entry is a plain file

-d Entry is a directory

-l Entry is a symlink

-S Entry is a socket

-p Entry is a named pipe (a "fifo")

-b Entry is a block-special file (like a mountable disk)

-c Entry is a character-special file (like an I/O device)

-u File or directory is setuid

-g File or directory is setgid

-k File or directory has the sticky bit set

-t isatty() on the filehandle is true

-T File is "text"

-B File is "binary"

-M Modification age in days

-A Access age in days

-C Inode-modification age in days

iwovGraduate

You can use something like:

....
if( -d $file ){
     ## Its a directory. Yay !!!
}elsif( -f $file ){
     ## Its just a plain file. Bummer 
}else{
     ## Not a file or directory. Hmmm...
}
...

For a complete list of file operation refer to any basic book on Perl. Or just search google. You'll file tons of help online.

Adam Stoller

You can use the test operators: if (-f $file) {
... $file is a "file" ...
}
elsif (-d $file) {
... $file is a "directory" ...
}
else {
... $file is something other than a "file" or "directory" ...
}or, in your case, you could do something like:my $dirname = "Y:/default/.../templatedata/category/datatype/data";
opendir(DIR, $dirname) || die "[opendir] '$dirname' ($!)";
@subdirs = grep { -d $_ && !/^\.+$/ } readdir(DIR);
closedir(DIR);
s|^|$dirname/| foreach(@subdirs); # make entries fully qualified paths

--fish
Senior Consultant, Quotient Inc.
http://www.quotient-inc.com

rossnoe

Thanks a lot guys. This is very helpful.