Discussion :

[shalfat]

Bonjour a tous.

J'ai réalisé un script perl qui affiche un résultat sur excel mais je ne sais pas comment faire deux choses.

La première c'est par exemple lorsque ma boucle while lit les fichiers à parser, j'aimerais pouvoir incrémenté un compteur lorsque une ligne n'apparaît pas dans mon fichier.


Ce code incrémente un compteur lorsque fermeture correcte apparaît

Code :

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

1
2
3
4
5
6
while (my $ligne = <$fh>)																									
{	
if ($ligne =~ /Fermeture correcte/)																			
	{
	my cpt++; 						
	}

J'avais pensé qu'en mettant le code

Code :

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

if ($ligne !~ /Fermeture correcte/)

ça fonctionnerais et incrémenterais le compteur mais ce n'est pas le cas.


La deuxième chose est que je ne peux pas exécuter mon script perl lorsque excel est déjà ouvert. J'ai le message d'erreur "can't open C:\\.... It may be in use or protected".
Je voulais savoir si c'était possible de remédier à ce problème, et si oui comment

Merci pour vos réponses

Cordialement

[Jedai]

1. Tu dois réfléchir plus activement à l'initialisation de tes variables, plus exactement à quel endroit tu les initialises, sachant que déclarer une variable l'initialise par défaut à "undef". Ici, tu as "my $cnt++" dans ton if...
2. Sous Windows, il est impossible de modifier un fichier qui est déjà ouvert par un autre programme (par défaut). Cela n'a rien à voir avec Perl et ne peut être réglé, sinon par la création d'un nouveau fichier lorsque tu ne peux ouvrir le premier.

--
Jedaï

[shalfat]

1. Tu dois réfléchir plus activement à l'initialisation de tes variables, plus exactement à quel endroit tu les initialises, sachant que déclarer une variable l'initialise par défaut à "undef". Ici, tu as "my $cnt++" dans ton if...
2. Sous Windows, il est impossible de modifier un fichier qui est déjà ouvert par un autre programme (par défaut). Cela n'a rien à voir avec Perl et ne peut être réglé, sinon par la création d'un nouveau fichier lorsque tu ne peux ouvrir le premier.

--
Jedaï

1- Dans mon script j'ai initialisé mon compteur j'ai juste mis la boucle while pour la ligne qui m'intéréssais

Code :

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

if ($ligne =~ /Fermeture correcte/)

Cette ligne signifie quand fermeture correcte est écrit dans une ligne du fichier. Moi j'aimerais savoir comment écrire fermeture correcte est écrit dans aucune ligne du fichier mais je ne vois pas comment faire.

2- Okay, je vais essayé de créer un nouveau fichier à chaque foi mais la aussi je ne vois pas très bien comment faire
C'est avec cette ligne que je crée mon fichier excel.

Code :

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

1
2
 
my $workbook  = Spreadsheet::WriteExcel->new('C:\\Documents and Settings\\FichierLog\\Etude_excel.xls');	# Création du fichier excel

[Lolo78]

Question 1: tu peux essayer ceci (bien lire le commentaire dans le code):

Code :

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

1
2
3
4
5
6
7
8
9
10
my $cpt = 0;
while (my $ligne = <$fh>)																									
{	
     $cpt++ if $ligne =~ /Fermeture correcte/; 						
}
 
if ($cpt == 0) {
     # aucune ligne ne contient "Fermeture correcte" puisque $cpt est resté à 0
     # fais ce que tu dois faire dans ce cas
}

Question 2: tu refais exactement la même ligne en changeant simplement le nom du fichier à ouvrir.

[shalfat]

Question 1: tu peux essayer ceci (bien lire le commentaire dans le code):

Code :

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

1
2
3
4
5
6
7
8
9
10
my $cpt = 0;
while (my $ligne = <$fh>)																									
{	
     $cpt++ if $ligne =~ /Fermeture correcte/; 						
}
 
if ($cpt == 0) {
     # aucune ligne ne contient "Fermeture correcte" puisque $cpt est resté à 0
     # fais ce que tu dois faire dans ce cas
}

Question 2: tu refais exactement la même ligne en changeant simplement le nom du fichier à ouvrir.

Pour la question 1 en réalité mon programme fait le parsing de plusieurs fichiers du coup quand je suis dans la boucle while, le compteur vaut toujours 1 quand fermeture correcte est écrit.
En effet il lit toutes les lignes d'un fichier et incrémente le compteur, mais lorsque sa change de fichier, le compteur revaut 0.
J'ai essayé de changer la place de l'initialisation du compteur mais sa change rien.
En gros sinon j'avais pensé compter le nombre de fois ou fermeture correcte est écrit et faire la soustraction entre le nombre de fichier et le nombre de fermeture correcte pour avoir le nombre de fichier non fermé correctement

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
use warnings;																					# Utilisation des warnings
use strict; 																					# Utilisation de la déclaration des variables
use File::Find;																					# Utilisation du module File::Find
use Spreadsheet::WriteExcel;																	# Utilisation du module Spreadsheet::WriteExcel
 
 
my $workbook  = Spreadsheet::WriteExcel->new('C:\\Documents and Settings\\Etude_excel.xls');	# Création du fichier excel
 
my $repertoire_etude = shift @ARGV // 'C:/Log';
 
	# Création des feuilles de calcul du fichier excel
my $worksheet = $workbook->add_worksheet("Test");
 
 
 
my $cpt_crash = 0;
my $nb_crash = 0;	
my $nb_fichier;																				
 
 
	# Sous programme recherche_nb_de_fichier qui compte le nombre de fichier commençant par "sterEOS3D_Trace..." dans un répertoire donné 
sub recherche_nb_de_fichier	
	{
	if (-f){++$nb_fichier if $File::Find::name =~ m/Trace_.*\.log$/;}					
	}	# Fin de recherche_nb_de_fichier
 
find(\&recherche_nb_de_fichier,$repertoire_etude);													
 
 
	# Sous - programme parcours_repertoire qui récupère les fichiers du répertoire appellé  
sub parcours_repertoire	
	{
    my ($path) = @_;																		
	my @dir_entries = glob("$path/*");
	foreach my $entry (@dir_entries)															
		{
        programme_principal($entry) if -f $entry && $entry =~ m/Trace/;				
        parcours_repertoire($entry) if -d $entry;												
		}
	}																							
 
 
	# Sous - programme programme_principal qui réalise la lecture des fichiers et la création et l'affichage des données dans le fichier excel.
sub programme_principal	
	{
	my $fichier = shift;																		
	open (my $fh, "<", $fichier) or die "ouverture impossible de $fichier $! \n";				
 
		while (my $ligne = <$fh>)																									
			{	
			if($ligne =~/Fermeture correcte/)
					{
					$cpt_crash++;					
					}
			}
 
		$nb_crash = $nb_fichier - $cpt_crash;	
 
	$worksheet7 ->write(0,15,$nb_crash);
 
	close($fh);																															
	}																																
 
parcours_repertoire($repertoire_etude);																							
 
$workbook->close();

J'ai 19 fichier dans mon répertoire et le résultats affichés est 18 alors qu'il devrait être de 0.

Comprenez - vous d'ou viens l'erreur ?

Merci

[Lolo78]

Je ne suis pas sûr de ce que tu cherches exactement à faire, mais j'ai trois remarques.

La variable $worksheet7 n'est utilisée qu'une seule fois sans être déclarée. Cela ne marche sans doute pas si tu utilises réellement use strict et use warnings.

Pour chaque fichier lu, tu écris dans la feuille Excel au même endroit. Donc, tu écrases la valeur précédente à chaque fois.

La variable $cpt_crash ne devrait sans doute pas être globale, mais sans doute locale à la fonction programme_principal (si du moins je comprends ce que tu cherches à faire).