(Semi-)automatic directory-tree in LaTeX

The dirtree package produces really nice directory trees. The input follows a predefined structure. Manually typing all directories and files in a root directory is painful, even for a relatively short number of items. I wrote a short perl script that outputs the file structure in the right format. It works on Linux and Mac OS X. You need to have a version of Perl installed (and find). The reason, I call this post “semi-auto” is simply because you still have to go to the terminal to run the script, rather than LaTeX does it for you. It is possible to run it from within a tex-document using the “shell-escape” option. However, in my opinion, that is a rather messy solution, which is why I will stick to the “semi-automatic” way here. Still way better than typing…

The dirtree package basically provides a simple command which takes the list of directories and files as argument.

\usepackage{dirtree}
...
\dirtree{%
...
}

The expected directory-tree structure is to be provided in the following format:

.<level><space><text-node>.<space>

Two basic rules are to be respected:

1. The root always has level 1.
2. If a node has level n, the next node takes any level between 2 and n+1

Please see the documentation for details on additional customization commands provided by the package such as coloring.

Here is the example given in the documentation:

\documentclass{article}
\usepackage{dirtree}
\begin{document}
\dirtree{%
 .1 /.
 .2 bin.
 .2 home.
 .3 jeancome.
 .4 texmf.
 .5 tex.
 .6 latex.
 .7 dirtree.
 .3 jeancomeson.
 .3 jeancomedaughter.
 .2 usr.
 .3 bin.
 .3 games.
 .4 fortunes.
 .3 include.
 .3 local.
 .4 bin.
 .4 share.
 .5 texmf.
 .6 fonts.
 .6 metapost.
 .6 tex.
 .3 share.
}
\end{document}

 

Semi-automatic dirtree using perl

As promised, here is a little perl script that outputs the directory tree in the form expected by the dirtree package. We use find to go through the tree of directories/files and pipe the output to the script.

#!/usr/bin/perl

while (<STDIN>) {
	my $currLine = $_;
	my $numSlash = @{[$currLine =~ /(\/)/g]};
	my $lastSlash = rindex($currLine, '/');
	my $dirFile = substr($currLine,$lastSlash+1,length($currLine)-$lastSlash-2);
	if ($numSlash == 1) { print ".$numSlash /.\n"; }
	else	{ print ".$numSlash $dirFile.\n"; }
}

Save the code in a perl file, e.g. tree.pl and run:

find root/ | perl tree.pl

in the terminal. The argument to find, here root/, is the directory to start with. It may just be “.” to print the tree of the current directory downwards. Make sure you use the correct path for the perl script. It may be in a different location.

Copy-paste the terminal output into your tex document and typeset it. Here’s what it should look like in the terminal. The result as produced by latex is shown below.

texblog:/ tom$ find . | perl path/to/tree.pl
.1 /.
.2 bin.
.3 ls.
.3 ps.
.3 pwd.
.2 etc.
.2 home.
.2 usr.
.3 bin.
.4 pdf2ps.
.4 ps2pdf.
.4 wget.
.3 local.
.4 bin.
.2 var.
texblog:/ tom$

I’m sure there is a different and/or better way to do the same thing. Possibly with bash only? How about Windows? Please drop me a comment below. Thanks!

Update:

Arjen provided a perl script which does not depend on the external find command and works on different platforms.

#!/usr/bin/perl -w
use strict;
use File::Find;

my $top = shift @ARGV;
die "specify top directory\n" unless defined $top;
chdir $top or die "cannot chdir to $top: $!\n";

find(sub {
    local $_ = $File::Find::name;
    my @F = split '/';
    printf ".%d %s.\n", scalar @F, @F==1 ? $top : $F[-1];
}, '.');

Save the script to a file (e.g. dirtree.pl) and run:

perl dirtree.pl path/to/directory

Thanks Arjen, much appreciated!