Affichage résultat du test

Version imprimable

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:

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.

29/03/2014, 20h01
Lolo78
Si tu veux juste vérifier si un fichier est vide ou non:

Code:

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

Ou, si tu préfères:
Code:

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.
30/03/2014, 11h36
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.

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:

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:

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*#/