common/tools/listdir.pl
author dario
Wed, 06 May 2009 10:58:02 +0100
changeset 180 702522cf0266
parent 39 9edae8fe1416
child 78 52cc4f7310db
permissions -rw-r--r--
Changed common default for sf.spec.systemdefinition.assemble to false

#!perl -w
use strict;

my $dir      = shift or die "Usage: $0 <dir> \n";   #  provided dir to traverse
my $filelist = [];

# fwd declaration to prevent warning
sub recursedir($$);

# run recurse and print
recursedir ($dir, $filelist);
print $_, "\n" for(@$filelist);

sub recursedir($$) {

  my $dir  = shift @_;
  my $list = shift @_;

  if(opendir(DIR, "$dir")) {
    #  list dir
    for my $file(grep { !/^\./ } readdir DIR) {
      if(-d "$dir\\$file") {
        #  traverse subdirs
        recursedir("$dir\\$file", $list);
      }
      elsif(-f "$dir\\$file") {
        #  if file then swap (any present) fwd to bkslash and add to list        
        $dir   =~s/\//\\/;
        $file  =~s/\//\\/;
        push @$list, "$dir\\$file";
      }
    }
    closedir DIR;
  }
  else {
    warn "Cannot open the directory '$dir' $!\n";
  }
}