Diff between file and directory

chuleto1 has asked for the wisdom of the Perl Monks concerning the following question:

Monks,
When reading a a directory, I would like to differentiate between a file and directory. Read Comment below....


@return_files = readDirectory($directory);




foreach(@return_files)
{
    next if ($_ eq "." || $_ eq "..");
        #######################
        #How can a tell between files and directories?
        ########################
    print OUT "<ul>

       <li id=\"foldheader\">$_</li>";
    print OUT "</ul>";
}



sub readDirectory
{
    opendir DIR, $directory;
    @files = readdir(DIR);
    return @files;
    closedir(DIR);
}
[download]

Any suggestions

Comment on Diff between file and directory Download Code

Replies are listed 'Best First'.
Re: Diff between file and directory by allolex (Curate) on Aug 25, 2003 at 17:39 UTC
You're probably looking for the `-d` and `-f` file test operators. There is a discussion of them in the Camel Book section 1.5.7. `print "this is a file\n" if -f; print "this is a directory\n" if -d;` [download] You might prefer to use a module like File::Find instead. It has all of your logic built into it already. Hope that helps. -- Allolex	[reply] [d/l]
Re: Re: Diff between file and directory by Grygonos (Chaplain) on Aug 25, 2003 at 19:28 UTC
you could also try and open the directory. if it succeeds close it. I used this is a recursive function for mapping drive contents to a logfile. ie Read more... (2 kB)	[reply] [d/l]
Re: Diff between file and directory by bear0053 (Hermit) on Aug 25, 2003 at 17:34 UTC
the following test will determine if the array element is a a directory in windows `if (-d $file)` [download] make sure $file contains path as well as file/directory name. this will check if it is a readable file `if (-e $file)` [download]	[reply] [d/l] [select]
Re: Re: Diff between file and directory by allolex (Curate) on Aug 25, 2003 at 17:42 UTC
the following test will determine if the array element is a a directory in windows I heard this works on all other platforms as well. ;) -- Allolex	[reply]
Re: Diff between file and directory by Fletch (Bishop) on Aug 25, 2003 at 17:37 UTC
perldoc -f -X, perldoc -f stat	[reply]
Re: Diff between file and directory by vek (Prior) on Aug 26, 2003 at 04:11 UTC
Just a quick comment on your code. Always check to make sure `opendir` was successful: `opendir (DIR, $directory) \|\| do { # your error handling here... };` [download] -- vek --	[reply] [d/l] [select]


Perl-Sensitive Sunglasses
	PerlMonks