When you say "got rid of the warning, but didn't fix the problem", do you mean that you are still seeing "empty" lines in the output? I'm not seeing that when I run the version below (sanitized to make it non-dependent on your specific paths).

I added the minimal amount of stuff around the "print_tree()" function so that I could load it in a browser and even paste it into this validation tool that almut cited elsewhere in this thread; I see no blank lines in the raw or rendered html, and it passed validation (with just a couple warnings about unrelated stuff).

If you're still seeing a problem with your directory tree, maybe there's something strange in the file names that you are dealing with (e.g. html-reserved characters in a file name, or something like that). In that case, it'll be worthwhile to get a plain-text dump of the tree to see if that's the problem -- or better yet, add HTML::Entities to your program, and use its "encode_entities" method on all the file names.

In fact, I've gone ahead and done that in the version below, just because it's a good idea anyway. 

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

use Cwd;
use File::Find;
use File::Basename;
use HTML::Entities;

my $filename = basename($0);
my $rootdir = getcwd;

my %tree;
$tree{$rootdir} = {};

find( { wanted => \&wanted }, $rootdir );

print "<html><head><title>Testing</title></head><body>\n";
print_tree( \%tree, 0 );
print "</body></html>\n";

sub wanted {
  local $_ = $File::Find::name;
  if ( -f ) {          # only work on data files (skip directories)
    s{\Q$rootdir\E/}{}; # remove the rootdir string from the path name
    load_tree( $tree{$rootdir}, fileparse( $_ ));
  }
}

# recursively load the hash structure
# (first call gets top-level hashref, and file name, path from File::B
+asename::fileparse)

sub load_tree {
  my ( $href, $name, $path ) = @_;

  my @dirs = split /\//, $path;
  push @dirs, '.' if ( $dirs[$#dirs] ne '.' );

  my $key = shift @dirs;
  while ( @dirs and $key ne '.' and exists( $$href{"$key/"} )) {
    $href = $$href{"$key/"};
    $key = shift @dirs;
  }
  if ( $key ne '.' and ! exists( $$href{"$key/"} )) {
    $$href{"$key/"} = {};
    load_tree( $$href{"$key/"}, $name, join( '/', @dirs, '' ));
  }
  elsif ( $key eq '.' ) {
    push @{$$href{"$key/"}}, $name;
  }
}

# recursively print embedded lists

sub print_tree {
  my ( $href, $indent ) = @_;
  printf( "%s<ul>\n", '  ' x $indent );
  $indent++;
  if ( exists( $$href{'./'} )) {
    printf( "%s<li>%s</li>\n", '  ' x $indent, encode_entities( $_ ))
      for ( @{$$href{'./'}} );
    delete $$href{'./'};
  }
  if ( keys %$href ) {
    for my $subdir ( sort keys %$href ) {
      printf( "%s<li>%s\n", '  ' x $indent,  encode_entities( $subdir 
+));
      $indent++;
      print_tree( $$href{$subdir}, $indent );
      $indent--;
      printf( "%s</li>\n", '  ' x $indent );
    }
  }
  $indent--;
  printf( "%s</ul>\n", '  ' x $indent );
}

[download]
(updated to fix validation web site link)

In reply to Re^9: Directory Tree Structure by graff
in thread Directory Tree Structure by rupesh

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.