EOH
my @containers;
my $indent = '';
#print scalar(@containers);
find( &wanted, $basedir );
if ( @containers ) {
for ( 1 .. $#containers ) {
print $resultfile "$indentn";
chop $indent;
}
}
print $resultfile "nn";
sub wanted {
return if ( /^..?$/ );
if ( -d ) {
my ( $root, @levels ) = split m{/}, $File::Find::dir;
print "levels are :@levelsn";
print "Containers are : @containersn";
if ( @levels >= @containers ) { # push one level deeper
$indent .= " ";
print $resultfile "$indentn";
$counter++;
}
elsif ( @levels <= @containers ) { # pop out one level
print $resultfile "$indentn";
chop $indent;
}
elsif ( $levels[-1] ne $containers[-1] ) { # same level, different path
print $resultfile "$indentn";
print $resultfile "$indentn";
}
@containers = @levels;
}
elsif ( -f _ and -s _ ) {
process_file();
}
}
sub process_file {
my $filename = $_;
open my $fh, '<', $filename or die "$File::Find::name : $!n";
my @linecolumns;
while () {
chomp;
s/ /,/g;
@linecolumns=split(',',$_);
}
print $resultfile <<ETX
$indent
$indent
$indent $filename
$indent SSH
$indent $linecolumns[5]
$indent $linecolumns[4]
$indent Default Settings
$indent $linecolumns[6] $linecolumns[7] $linecolumns[8] $linecolumns[9]
$indent
$indent
$indent
$indent
$indent
$indent
$indent
$indent
ETX
;
}