To do list for the following code, in any order. I have tried doing these, but my efforts have lead to bigger messes.

• Figure out what in push @dirs, '.' if ( $dirs[$#dirs] ne '.' ); is causing Use of uninitialized value in string ne at file_crawl.pl line 55 (#1) warning. Here is a screenshot of where in the results is the problem, maybe.
• Skip certain directories, file types, and some file names.
• Create links relative to $rootdir. I need my paths back.
• Transform the link text into titles (subroutine included).
• For the first iteration of sub print_tree, put onclick="list_onclick(event)" in the <ul> element.
• For the link to the home page, the link will be $rootlink, but the link text will be home.
• In each <li> which is for a directory, put class="closed" in the <li> element with the exception for the active file's directory, then it would be class="open".
• For the active file, put class="active" in the <a> element.
• Put in sort rules such as sorting ignore articles a, an, and the; by the last word instead of the first for one directory; for another create the list manually more than likely; and for another put favorites last (or first, I haven't decided yet).

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

use Cwd;
use File::Find;
use File::Basename;

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

my %directories = (
  '/ftp/pub/www/fantasy' => {
    link => 'http://www.xecu.net/fantasy',
    user => 'Fantasy',
    name => "Fantasy's Realm",
  },
  '/home/lady_aleena/var/www' => {
    link => 'http://lady_aleena.perlmonk.org',
    user => 'Lady Aleena',
    name => "Lady Aleena's Home",
  },
  'C:/Documents and Settings/<my name>/My Documents/fantasy' => {
    link => 'file:///C:/Documents and Settings/<my name>/My Documents/
+fantasy',
    user => '<my name>',
    name => "<my name>'s Place",
  },
);

sub get_rootdir {
  for my $dir (keys %directories) {
    return $dir if $dirname =~ /^\Q$dir/;
  }
}
my $rootdir = get_rootdir;
if (not exists $directories{$rootdir}) { die "You really screwed up." 
+}
my $rootlink = $directories{$rootdir}{link};
my $rootuser = $directories{$rootdir}{user};
my $rootname = $directories{$rootdir}{name};

#@ARGV == 1 and -d $ARGV[0] or die "Usage: $0 path_name\n";
#( $rootdir = shift ) =~ s{(?<!/)$}{/};   # make sure path ends with "
+/"

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

find(\&wanted, $rootdir);

print_tree( \%tree, 0 );

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, $_ )
      for ( @{$$href{'./'}} );
    delete $$href{'./'};
  }
  if ( keys %$href ) {
    for my $subdir ( sort keys %$href ) {
      printf( "%s<li>%s\n", '  ' x $indent,  $subdir);
      $indent++;
      print_tree( $$href{$subdir}, $indent );
      $indent--;
      printf( "%s</li>\n", '  ' x $indent );
    }
  }
  $indent--;
  printf( "%s</ul>\n", '  ' x $indent );
}
[download]

sub transform

sub transform {
  my ($text) = @_;
  $text =~ tr/_/ /;
  $text =~ s/.*\/+//;
  $text =~ s/\.[^.]*\z//;
  return $text;
}
[download]