How do I distinguish a file from a directory in Perl?

Question

I\'m trying to traverse through all the subdirectories of the current directory in Perl, and get data from those files. I\'m using grep to get a list of all files and folder

Answer 1

print "$file is a directory\n" if ( -d $file );