Identifying Directory

[Anonymous Monk]

Hi Monks!

How could a make a directory print different if found? Here are more details
All that has to be done is to give a path to be search on $dir, and this code will print a directory tree out of it, but I would like to see if inside of the given path on $dir more directories are found I would like to see them highlighted for further display options.
Here is the code:

#!/perl/bin/perl

use warnings;
use strict;
use File::Slurp::Tree;
use CGI qw(:header);
use CGI::Carp qw(fatalsToBrowser);
use CGI qw/:standard/;


# The tree datastructure is a hash of hashes.  The keys of 
# each hash are names of directories or files.  Directories 
# have hash references as their value, files have a scalar 
# which holds the contents of the file. 

my $dir = "c:/progra~1/apache~1/apache2/cgi-bin/test";
my %tree;
my $tree = slurp_tree($dir);
my $depth = 0;

print header();
   
print_keys($tree);

sub print_keys {
    my $href = shift;
    $depth++;
    foreach ( keys %$href ) {
          
    if(-d $_){ print "<b>Dir exists= $_</b><br>";}
    
        print '****' x $depth, "<input type=checkbox> --$_<br>\n";
        print_keys( $href->{$_} ) if ref $href->{$_} eq 'HASH';
        
        
    }
    $depth--;
}

Thanks a lot!

[VSarkiss]

Getting the difference of directory structures is trickier than it initially sounds; I'd recommend getting a program that does it rather than trying to roll your own (even with Perl :-).

I see you're on Win32. I'd recommend getting Cygwin which is free (both in price and in license) and using the diff program in directory mode. There are other options out there if you prefer. Google is your friend.

[gasho]

This will work on Windows

######################################################################
+#######
# It will return an array of @DirectoryPaths.
# $LocationOfThePostDir='C:\Post';
# Usage: @DirPaths=extractDirectoryPaths($LocationOfThePostDir);
# For example if you have Underneath of C:\Post \A \B\C
# It will return array members like:
# C:\\Post\\A
# C:\\Post\\B
# C:\\Post\\B\\C

sub extractDirectoryPaths #(C:\\Post)
{
    my ($RootDir)=@_;
    my(@A,$e,$C,@B,$b,$a,$c,@E,@D,$j,@F,$y,$x,$ff,@C,@DirectoryPaths);
    #Purpose is to extract all paths to directories and subdirectories
    @A=`dir $RootDir /s/w` ;
    #@A=`dir $_[0] /s/w` ;

      foreach $e (@A){
        $C=substr($e,0,10);
        #Extract only string that starts with Directory
        if($C eq " Directory"){
          push(@B,$e);
        }
      }
       # Directory of C:\cr1_qc\crnqcV3\CM\Bering\Results\object_test_
+mssql\Root\DirectorySuite\GroupsandRolesSuite\OutputPages
       # I want to start from  C:
      foreach $a (@B){
        push(@C,substr($a,14));
      }
       #Put backslash \in front of\  so it will be  C:\\cr1_qc\\
      foreach $b (@C){
        @D=split(/\\/,$b);
        $c=join ("\\\\",@D);
        push(@E,$c);
      }

           #Remove lash char that is whitespace
           @F=trim(@E);
#  foreach $j (@E)
#  {
#      $y=substr($j,0,-1);
#      push(@F,$y);
#  }

      foreach $x (@F){
        $ff=substr($x,1,1);
        if($ff eq ":"){
          push(@DirectoryPaths,$x);
        }
      }
return  @DirectoryPaths;
}#EndOfextractDirectoryPaths