Affichage unique dans une boucle en PERL

Résolu

NMalo Messages postés 83 Date d'inscription Statut Membre Dernière intervention -
- 16 juin 2011 à 15:07

Bonjour,

Je suis vraiment pas doué en prog...
Je suis chargé de développer un script analysant tous les fichiers d'un répertoire et devant ensuite supprimer les fichiers qui ne respectent pas certaines normes (nommage, taille fichier, doublons et autres).

Pour le moment, ma recherche fonctionne parfaitement.
La suppression des fichiers vides également, mais je ne parviens pas à afficher un résumé de cette opération une seule fois.
J'ai regardé du côté de

next

mais rien à faire, je ne parviens pas au résultat souhaité.

Je me doute que ça doit être un détail de rien du tout, mais pas moyen de trouver :(

Voici la partie qui supprime les fichiers vides avec celle qui est sensée me faire les

print

une seule fois :

  foreach my $fichier_rep (@fichiers)
    {

  #Suppression fichiers vides
  
      sub fic_vide
        {
          push @fic_vide, $File::Find::name if -z
        
        }
 

  find (\&fic_vide,$repertoire);

  $nbfic_supp = (@chemin_fic_supp = grep { unlink } @fic_vide);
  

     print "$nbfic_supp fichiers ont été supprimés.\n";    #C'est cette partie que 
     print "Voici la liste de fichiers supprimés :\n";         #je cherche à n'afficher
     print "$_\n" foreach @chemin_fic_supp;                 # qu'une seule fois
     
         
    }

Par avance merci.

Afficher la suite

A voir également:

Affichage unique dans une boucle en PERL
Affichage double ecran - Guide
Windows 11 affichage classique - Guide
Problème affichage page internet google chrome ✓ - Forum Google Chrome
Problème affichage fenêtre windows 10 - Guide
Xiaomi s'éteint tout seul et se rallume en boucle - Forum Xiaomi

4 réponses

Réponse 1 / 4

il faut les retirer du foreach :

  foreach my $fichier_rep (@fichiers)
    {

  #Suppression fichiers vides
  
      sub fic_vide
        {
          push @fic_vide, $File::Find::name if -z
        
        }
 

  find (\&fic_vide,$repertoire);

  $nbfic_supp = (@chemin_fic_supp = grep { unlink } @fic_vide);    
    }

     print "$nbfic_supp fichiers ont été supprimés.\n";    #C'est cette partie que 
     print "Voici la liste de fichiers supprimés :\n";         #je cherche à n'afficher
     print "$_\n" foreach @chemin_fic_supp;                 # qu'une seule fois

Réponse 2 / 4

NMalo Messages postés 83 Date d'inscription Statut Membre Dernière intervention 9

Oui, mon script fonctionne et supprime convenablement les fichiers souhaités, mais les print n'affiche pas le nombre de fichiers supprimés ni les chemins avec cette syntaxe.
Ils s'affichent bien une seul fois.
Merci.

Réponse 3 / 4

foreach my $fichier_rep (@fichiers) 
    { 

  #Suppression fichiers vides 
   
      sub fic_vide 
        { 
          push @fic_vide, $File::Find::name if -z 
         
        } 
 $nbfic = $nbfic + 1; 

  find (\&fic_vide,$repertoire); 

  $nbfic_supp = (@chemin_fic_supp = grep { unlink } @fic_vide);    
  $temp = $temp."$_\n" foreach @chemin_fic_supp 
  
    } 

     print "$nbfic fichiers ont été supprimés.\n";    #C'est cette partie que  
     print "Voici la liste de fichiers supprimés :\n";         #je cherche à n'afficher 
     print $temp;                 # qu'une seule fois

j'imagine que ça devrait fonctionner :)

Réponse 4 / 4

NMalo Messages postés 83 Date d'inscription Statut Membre Dernière intervention 9

Yes it works, merci :p

Juste, je n'ai pas e nombre de fichiers supprimés, j'ai trouvé qu'en rajoutant "+" devant le "=" j'avais le nombre de fichiers supprimés, (cf en dessous)

$nbfic_supp += (@chemin_fic_supp = grep { unlink } @fic_vide);

mais du coup j'ai ces deux messages d'erreur :

"Use of uninitialized value $nbfic in addition (+) at "
&
"Use of uninitialized value $temp in print at"

Merci !

Discussions similaires

Avis site Internet coque-unique

Mon pc s'allume et s'éteint en boucle

Mon ordinateur s'allume et s'eteint en boucle

Les images ne s'affichent plus

impossible de voir les photos et videos sur une conversation messenger

Votre réponse

Discussions similaires