Discussion :

[seekawa]

Bonjour,

Je débute en Perl et plus largement en programmation. J'ai fait une fonction qui vérifie qu'un fichier est vide, et je souhaiterai qu'il m'affiche qu'une seule fois le OK ou le KO. Comment puis-je faire ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
sub check_empty_file {
        my ($file) = @_;
 
        if (-e $file) {
                if (-s $file)  {
                        open (PROCESS, $file) or die "open : $!\n" ;
                        while (defined ($line = <PROCESS>)) {
                                if ($line !~ m/^#/) {
                                        print "KO";
                                }
                                else {
                                        print "OK";
                                }
                        }
                }
                else {
 
                        print "OK";
                }
        }
        else {
                print "OK";
        }
}

Merci d'avance.

[Lolo78]

Si tu veux juste vérifier si un fichier est vide ou non:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

print -s $file ? "OK" : "KO", "\n";

Ou, si tu préfères:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
if (-s $file > 0) {
     print "OK\n";
} else {
     print "OK\n";
}

Si tu veux vérifier plus de choses (ce que ton code semble impliquer), alors spécifie le besoin plus clairement.

[seekawa]

Il ne s'agit pas simplement de vérifier que le fichier est vide.
S'il est vide, tant mieux, on affiche OK.
S'il n'est pas vide, je vérifie qu'il ne contient que des commentaires.
S'il ne contient que des commentaires, on affiche OK, sinon on affiche KO.
Mais vu que je fais une boucle pour lire le fichier et trouver le pattern "^#", l'exécution m'affiche OK ou KO pour chaque ligne parcourue, et moi je veux juste le résultat final.

J'espère avoir été plus claire.

Merci.

[Lolo78]

Dans ce cas, on peut utiliser une variable flag que l'on initie à une valeur et que l'on modifie si la condition recherchée est remplie. A la fin, on affiche le résultat selon que la variable a été modifiée ou non. Par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
sub check {
     my $file = shift; 
     print "OK\n" and return unless -s $file; # si la taille est vide, on affiche OK et on sort
     open my $FH, "<", $file or die "ne peut ouvrir $file $!";
     my $fichier_vide = 1; # variable flag à vrai, on suppose le fichier vide
     while (<$FH>) {
          $fichier_vide  = 0 unless /^#/;
     }
     if ($fichier_vide) {
          print "OK\n";
     } else  {
          print "KO\n";
     }
}

Plus simplement, on peut aussi utiliser les mécanisme de contrôle de boucles, sans variable flag:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
sub check {
     my $file = shift; 
     print "OK\n" and return unless -s $file; # si la taille est vide, on affiche OK et on sort
     open my $FH, "<", $file or die "ne peut ouvrir $file $!";
     while (<$FH>) {
          print "KO\n" and return unless /^#/; # affiche KO et sort de la fonction si un ligne n'est pas vide
     }
     print "OK\n"; # si on arrive à cette ligne de code, toutes les lignes étaient vides, on peut afficher OK
}

Note que le commentaire peut être précédé d'espaces. L'expression régulière suivante serait peut-être meilleure:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

/^\s*#/