{{tag>Brouillon Tests Perl}}

= Notes - test sur arborescence de fichiers

== libfile-checktree-perl

Voir :
 * https://metacpan.org/pod/File::CheckTree

<code bash>
sudo apt-get install libfile-checktree-perl
</code>

<code perl>
use File::CheckTree;
 
$num_warnings = validate( q{
    /vmunix                 -e || die
    /boot                   -e || die
    /bin                    cd
        csh                 -ex
        csh                 !-ug
        sh                  -ex
        sh                  !-ug
    /usr                    -d || warn "What happened to $file?\n"
});

</code>