Forum Programmation.shell profondeur relative d'un fichier dans une arborescence

• # Un peu de perl

  Posté par Chris K. le 23 avril 2008 à 11:37. É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

  • [^] # Re: Un peu de perl

    Posté par gaaaaaAab le 23 avril 2008 à 16:15. Évalué à 6.

    

    on peut aussi compter les / à coup de
    tr -c '/' ' ' | tr -d ' ' | wc -c

    • [^] # Re: Un peu de perl

      Posté par Chris K. le 23 avril 2008 à 16:58. Évalué à 1.

      

      +1
      J'avais complètement oublié l'existence de tr... honte sur moi ;)

      • [^] # Re: Un peu de perl

        Posté par gaaaaaAab le 23 avril 2008 à 21:32. Évalué à 2.

        

        ben ouais, c'est le forum programmation.shell quoi ! ;)
        
        cela dit, je fais le malin, mais il m'a fallu un man tr, vu que je ne connaissais ni l'option -c, ni l'option -d ...
        
        Du coup, merci pour la question MilkaJinka ;)

    • [^] # Re: Un peu de perl

      Posté par Nerdiland de Fesseps le 23 avril 2008 à 17:50. Évalué à 1.

      

      Super le coup de tr, c'est parfaitement ce que je cherchais :-)
      
      Accessoirement, ça m'a permis de contourner un problème dans une boucle for (en tout cas sous Busybox) : les noms de fichier avec des espaces s'affichaient sur plusieurs lignes, ce qui est problématique pour les traiter :
      
      
for fichier in $(find . -type f)
do
echo "$fichier"
done

      
      Ce code affichait "./un nom de fichier avec des espaces" comme ceci (alors qu'un find dans la console les affiche correctement) :
      ./un
      nom
      de
      fichier
      avec
      des
      espaces

    • [^] # Re: Un peu de perl

      Posté par gaaaaaAab le 25 avril 2008 à 18:50. Évalué à 2.

      

      et même encore mieux !
      tr -d -c '/' | wc -c
      parce que tr est bien conçu =)

Suivre le flux des commentaires

Note : les commentaires appartiennent à celles et ceux qui les ont postés. Nous n’en sommes pas responsables.