• # Un peu de perl

    Posté par . En réponse au message profondeur relative d'un fichier dans une arborescence. Évalué à 2.

    Si je devais faire ça je procéderai de la manière suivante, avec un ptit bout de perl pour compter les / :

    find ./ -name "*.*" | cut -d"/" -f2- | perl -e 'while(<>) { $l = $_; @arr = split(/\//); $l =~ s/\n//; $cnt = @arr; print $l.":".($cnt - 1)."\n" }'

    Ou find recherche les fichiers,
    cut -d"/" -fX- permet d'enlever la racine
    et derrière un bout de perl qui compte le nombre de / et affiche le chemin relatif, deux points et le niveau