Writing Dir Names into a File

Hello all,

Sorry about my previous message, I left alot of key info out. I am using 
Solaris 2.6. I want to read all of the directory names after $mydir, and 
then print those names into a file. How do I do this?

Currently I have this as my script:

#!/path/to/perl -w
use strict;
   my $dir = '/images';
   opendir( DIR, $dir )
      or die "Failed to open directory '/images': Error='$!'";
while ( my $file = readdir( DIR ) ) {
    print $file," is a directory!\n" if -d "$dir/$file";
}

I want to see other examples of how you do this. I haven't found much on the 
web.

Thanks Again!!

-garrett

_________________________________________________________________
Chat with friends online, try MSN Messenger: http://messenger.msn.com

• Writing Dir Names into a File by garrett esperum
• Writing Dir Names into a File by garrett esperum
• Re: Writing Dir Names into a File by garrett esperum
• RE: Writing Dir Names into a File by David Gray
• Re: Writing Dir Names into a File by bob ackerman
• Re: Writing Dir Names into a File by John W. Krahn