Solved

recursive readdir in win32

Posted on 1998-12-14
1
923 Views
Last Modified: 2012-05-04
I need to perform an operation on a directory and its subdirectories in Win32. I thought it would be easy but am having some difficulties. Please provide some generic code. Thanks.
0
Comment
Question by:Pakfan
1 Comment
 
LVL 5

Accepted Solution

by:
b2pi earned 90 total points
ID: 1206937
my($root) = "C:\\users";
DoDir($root);

sub DoDir {
   my($dir) = shift;
   my($file);
   opendir(DIR, $dir) || die "Unable to open $dir :$!";
   my(@files) = grep {!/^\.\.?$/ } readdir(DIR);
   closedir(DIR);
   foreach (@files) {
      if (-d ($file = "$dir\\$_")) {
           print "Found a directory: $file\n";
            DoDir($file);
      } else {
            print "File $file\n";
      }
   }
}

0

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
work on ods spreadsheet with perl in ubuntu 4 80
perl to convert excel to csv 3 260
create a gui in perl 3 98
Perl Snippet to Parse String 1 23
In the distant past (last year) I hacked together a little toy that would allow a couple of Manager types to query, preview, and extract data from a number of MongoDB instances, to their tool of choice: Excel (http://dilbert.com/strips/comic/2007-08…
Checking the Alert Log in AWS RDS Oracle can be a pain through their user interface.  I made a script to download the Alert Log, look for errors, and email me the trace files.  In this article I'll describe what I did and share my script.
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…

820 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question