#!/usr/bin/perl -w
# parcours d'un arbre de repertoires
# Version 1.0 Juan Manuel Torres

arbre_repertoire(".");

sub arbre_repertoire()
{
    my $dir=shift;
    if (opendir(DIRH,"$dir"))
    {
        foreach (readdir(DIRH))
        {
           # ignore . et .. :
             next if ($_ eq "." || $_ eq "..");
             print "$dir/$_\n";
	   # Repertoire et pas un lien symbolique
             arbre_repertoire("$dir/$_") if (-d "$dir/$_" && ! -l "$dir/$_");
         }
         closedir DIRH;
    } else { print "Erreur: on peut pas ouvrir $dir\n"; }
}