Recupération de plusieurs lignes dans un fichier

**oliviernouhi** · 10/01/2011, 16h38

Bonjour,

Je dois récupérer la " Description " des mes fonctions qui peuvent être sur une ou plusieurs lignes.

Voici le fichier d'entrée :

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
 
	Function: qoConstruct
		Description: Construct the object
		Returns
		Parameters
	Function: qoSetEnabled
		Description: Enable or Disable the QuickObject
		Returns
			Boolean:
	Function: PutItemValue
		Description: This function actually puts the value into the QuickObject
				it does not update other QuickObjects, but does clear the 
				modifed flag
		Returns
			Boolean:
			INT:

J'ai réussis a faire 2 codes mais je n'obtiens pas ce que je veux.

Le premier (très simple) me remonte seulement la première ligne de ma description dans mon invite de commande :

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
# !usr/bin/perl -w
use strict;
use warnings;
require 'fonctions.pl' ;
 
my $cpt=0;
my $nIndentActuel=0;
 
#######################################################################################################
#                               Début du traitement et ouverture fichiers                             #
#######################################################################################################
 
    print "\n-------------------------------------------------------\n";
    print "|---------------  Debut du traitement  ---------------|\n";
    print "-------------------------------------------------------\n";
 
open FICHIER, '<', "X7_sans_com2.apt" or die("E/S : $!\n");
 
while ( my $ligne = <FICHIER>) {
	$cpt++;
	$nIndentActuel = CompteEspaces($ligne); # on stocker dans IndentActuel le nombre de tabulation sur la ligne en question
 
	# Propriétés Description 
	if ( $ligne =~ m/^\t*Description:\s*(.+)/){
		print "Description :", $1, "\n";
	}
 
#######################################################################################################
#                  End Of File, verifie que toutes les lignes du fichier sont traités                 #
#######################################################################################################	
 
		if (eof) {
		print "-------------------------------------------------------\n";
		print "|--------------- Fin du fichier courant --------------|\n";
		print "-------------------------------------------------------\n";
		}
}
 
#######################################################################################################
#                                         Compteur                                                    #
#######################################################################################################
 
    print "-------------------------------------------------------\n";
    print "| parser_external_functions.pl a parcouru ", $cpt, " lignes |\n";
    print "-------------------------------------------------------\n";
 
 #######################################################################################################
#                            Fin du traitement et Fermeture Fichiers                                  #
#######################################################################################################
 
    print "-------------------------------------------------------\n";
    print "|----------------  Fin du traitement  ----------------|\n";
    print "-------------------------------------------------------\n";
 
close FICHIER;

Et le deuxième (plus complexe) : Je me balade dans le fichier grâce aux tabulations.

Me remonte seulement de la deuxième à la première que j'écris dans un fichier :

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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
# !usr/bin/perl -w
use strict;
use warnings;
require 'fonctions.pl' ;
 
my $cpt=0; # compteur de ligne
my $nIndentActuel=0; # indentation actuelle de tabulations
my $nIndentDescription= 0; # identation du motif Description
my $bBlockDescription = 0; # vrai (1) ou faux (0) pour savoir si on est dans les Returns
my $y=0; # compteur pour parcours du tableau pour écrire
my $j=0; # compteur pour parcours du tableau pour écrire
 
my $NomDescription ; # Nom de la Description
my @tab_Description =([0]); # Tableau des Description
my $tab_Description_ligne = 0; # Compteur des Description
 
#######################################################################################################
#                               Début du traitement et ouverture fichiers                             #
#######################################################################################################
 
    print "\n-------------------------------------------------------\n";
    print "|---------------  Debut du traitement  ---------------|\n";
    print "-------------------------------------------------------\n";
 
open FICHIER, '<', "X7_sans_com2.apt" or die("E/S : $!\n");
open ECRIRE_Description,  '>', "parserDesc.txt" or die("Erreur de création de parserDesc.txt");
 
$tab_Description[0][0]="Ligne";
$tab_Description[0][1]="Description";
 
while ( my $ligne = <FICHIER>) {
	$cpt++;
	$nIndentActuel = CompteEspaces($ligne); # on stocker dans IndentActuel le nombre de tabulation sur la ligne en question
 
	if ($bBlockDescription == 1){ # vrai
		if ($nIndentActuel <= $nIndentDescription){
			$bBlockDescription = 0; #faux
		}
		else{
			unless ( $ligne =~ m/^\t*Description:\s*(.+)/){
				$ligne =~ s/\s+//g;
				if ( $tab_Description[$tab_Description_ligne][1] eq "NULL"){
						$tab_Description[$tab_Description_ligne][1] = $ligne;
				}
				else{
					$tab_Description[$tab_Description_ligne][1] = join " ", $tab_Description[$tab_Description_ligne][1], $ligne;
				}
			}
		}
	}
	# Propriétés Description 
	if ( $ligne =~ m/^\t*Description:\s*(.+)/){
		$tab_Description_ligne++; # compteur du nombre de Function Class
		$tab_Description[$tab_Description_ligne][0]=$cpt;
		$tab_Description[$tab_Description_ligne][1]= "NULL";
		$bBlockDescription = 1; 
		$nIndentDescription = CompteEspaces($ligne);
	}		
 
#######################################################################################################
#                  End Of File, verifie que toutes les lignes du fichier sont traités                 #
#######################################################################################################	
 
		if (eof) {
		print "-------------------------------------------------------\n";
		print "|--------------- Fin du fichier courant --------------|\n";
		print "-------------------------------------------------------\n";
		}
}	
 
#######################################################################################################
#                                       Ecriture des Objets                                           #
####################################################################################################### 
 
for ($y=0; $y<=$tab_Description_ligne; $y++){
	for ($j=0; $j<=1; $j++){
		print ECRIRE_Description $tab_Description[$y][$j], "\			";
	}
	print ECRIRE_Description "\n";
}
 
#######################################################################################################
#                                         Compteur                                                    #
#######################################################################################################
 
    print "-------------------------------------------------------\n";
    print "| parser_external_functions.pl a parcouru ", $cpt, " lignes |\n";
    print "-------------------------------------------------------\n";
 
 #######################################################################################################
#                            Fin du traitement et Fermeture Fichiers                                  #
#######################################################################################################
 
    print "-------------------------------------------------------\n";
    print "|----------------  Fin du traitement  ----------------|\n";
    print "-------------------------------------------------------\n";
 
close FICHIER;

Je sèche un peu et j'ai vraiment besoin d'aide.

En vous remerciant par avance.

**Philou67430** · 10/01/2011, 18h01

Pourquoi ne pas récupérer toutes les lignes entre Description et Returns, un peu comme ça :

Code :

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

1
2
push @description, $_ if /^\s*Description:/ .. /^\s*Returns/;
pop @description; # pour supprimer la ligne Returns

**oliviernouhi** · 11/01/2011, 10h31

salut,

Bonne idée, je viens d'essayer avec un nouveau code je ne suis pas loin du résultat final mais j'ai un résultat bizarre tout de même !

fichier en entrée :

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
	Function: qoConstruct
		Description: Construct the object
		Returns
		Parameters
	Function: qoSetEnabled
		Description: Enable or Disable the QuickObject
		Returns
			tutu:
	Function: PutItemValue
		Description: This function actually puts the value into the QuickObject
				it does not update other QuickObjects, but does clear the 
				modifed flag
		Returns
			toto:
			INT:

Avec ce code :

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
# !usr/bin/perl -w
use strict;
use warnings;
 
my @bloc =([0]);
 
open FICHIER, '<', "X7_sans_com2.apt" or die("E/S : $!\n");
 
while ( my $ligne = <FICHIER>) {
 
 
 
	my $in_bloc = ($ligne =~ m/^\t*Description:\s*(.+)/) .. ($ligne =~ m{Returns}i); # cherche la présence d'un bloc
 
	push @bloc, $ligne if $in_bloc; # Si l'on est dans un bloc, on remplit la table avec le nouvelle ligne
 
	# Si l'on a trouvé le tag de fin, on traite le bloc
	# traitement du bloc
	if ($in_bloc =~ /E0/) {
		# affiches tout sauf le premier et le dernier pour supprimer Description et Returns
		print @bloc[1..($#bloc-1)];
		# puis vidage du bloc pour repartir sur une nouveau bloc
		pop @bloc;	
	}
}

Voici le résultat :

Code :

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

1
2
3
4
5
6
7
8
                Description: Construct the object
                Description: Construct the object
                Description: Enable or Disable the QuickObject
                Description: Construct the object
                Description: Enable or Disable the QuickObject
                Description: This function actually puts the value into the QuickObject
                                it does not update other QuickObjects, but does clear the
                                modifed flag

Je ne devrais pas avoir le motif "Description:".
Et aussi j'ai des doublons, pourquoi ?

Tu as une idée ?

ps : j'ai fais exprès de faire mon tableau @bloc a deux dimensions car après je vais devoir le stocker dans un autre tableau

**Philou67430** · 11/01/2011, 11h52

Oui, j'ai une idée.
Le vidage de @bloc ne se fait pas avec l'instruction pop, mais avec une affectation d'une liste vide :

Code :

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

@bloc = ();

Le pop que j'avais indiqué dans mon exemple n'était là que pour supprimer la dernière ligne.
Par ailleurs, tu supprimes d'office la première ligne alors qu'elle contient des informations après Description.

J'écrirais donc plutôt :

Code :

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

1
2
3
4
5
6
	if ($in_bloc =~ /E0/) {
          pop @bloc,
          $bloc[0] =~ s/Description:\s*//;
          print @bloc;
          @bloc = ();
        }

**oliviernouhi** · 11/01/2011, 12h02

Ah ok,

Du coup j'ai refais le code avec tes conseils.

Code :

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
# !usr/bin/perl -w
use strict;
use warnings;
 
my @bloc =([0]);
 
open FICHIER, '<', "X7_sans_com2.apt" or die("E/S : $!\n");
 
while ( my $ligne = <FICHIER>) {
 
	my $in_bloc = ($ligne =~ m/^\t*Description:\s*(.+)/) .. ($ligne =~ m{Returns}i); # cherche la présence d'un bloc
 
	push @bloc, $ligne if $in_bloc; # Si l'on est dans un bloc, on remplit la table avec le nouvelle ligne
 
	# Si l'on a trouvé le tag de fin, on traite le bloc
	# traitement du bloc
	if ($in_bloc =~ /E0/) {
          pop @bloc;
          $bloc[0] =~ s/Description:\s*//;
          print @bloc;
          @bloc = ();
        }
}

Résultat :

Code :

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

1
2
3
4
5
ARRAY(0x9891ac)         Description: Construct the object
                Enable or Disable the QuickObject
                This function actually puts the value into the QuickObject
                                it does not update other QuickObjects, but does clear the
                                modifed flag

J'ai un " ARRAY(0x9891ac) " bizarre en résultat, et aussi le motif "Description:" sur la première ligne.

Comment résoudre ça ?
Es ce que je pourrai remplir un autre tableau avec les valeurs des blocs ?

**Philou67430** · 11/01/2011, 12h14

Tu as mal initialisé ton tableau :

Code :

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

my @bloc =([0]);

Ceci rempli @bloc avec une référence à un tableau contenant 0. Visiblement, tu n'as toujours pas compris les structures de données de base de perl, et notamment les références.

Pour initialiser ton tableau :

Code :

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

my @bloc;

suffit ou bien encore

Code :

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

my @bloc = ();

**oliviernouhi** · 11/01/2011, 13h28

Je fais du Perl une semaine sur deux ! En plus étant débutant c'est pas facile de tout retenir !

Mais effectivement en mettant my @bloc =(); ça fonctionne.

En fait j'avais crée my @bloc =([0]); pour faire un tableau à deux dimensions, il me semblait que c'était comme ça qu'on le déclaré.

Parce qu'en faite je veux stocker le résultat dans un autre tableau.

Comment je peux stocker mes résultat de mon tableau @bloc dans un tableau comme celui ci par exemple :

Code :

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

1
2
3
4
 
 
$tab_Description_ligne++;
$tab_Description[$tab_Description_ligne][2]

**Philou67430** · 11/01/2011, 14h09

Dans ce cas, si tu souhaites conserver toutes les occurrences, voici comment 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
# !usr/bin/perl -w
use strict;
use warnings;
 
my @tab_Description = ([]);
 
open FICHIER, '<', "X7_sans_com2.apt" or die("E/S : $!\n");
 
while ( my $ligne = <FICHIER>) {
 
	my $in_bloc = ($ligne =~ m/^\t*Description:\s*(.+)/) .. ($ligne =~ m{Returns}i); # cherche la présence d'un bloc
 
	push @{$tab_Description[-1]}, $ligne if $in_bloc; # Si l'on est dans un bloc, on remplit la table avec le nouvelle ligne
 
	# Si l'on a trouvé le tag de fin, on traite le bloc
	# traitement du bloc
	if ($in_bloc =~ /E0/) {
          pop @{$tab_Description[-1]}; # Supprimer la dernière ligne du dernier bloc
          $tab_Description[-1]->[0] =~ s/Description:\s*//; # Modifier la première ligne du dernier bloc
          print @{$tab_Description[-1]};
          push @tab_Description, []; # Passer au bloc suivant
        }
}

Attention, je n'ai pas testé. Il peut subsister des erreurs de syntaxe ou des bugs.

**oliviernouhi** · 11/01/2011, 14h45

Ok super merci j'avance ! Mais je ne vois pas comment l'intégrer à mon tableau..

En faite je veux l'intégrer à mon code mais ça ne marche pas du tout.

Je dois remplir mon tableau $tab_Description avec dans $tab_Description[$tab_Description_ligne][1] le donnée que je récupère dans mes Bloc (avec $tab_Description_ligne qui s'incrémente).

Car une autre partie de mon code rempli bien déjà le tab_Description_ligne][2] (mes Returns)

Voici mon code :

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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
# !usr/bin/perl -w
use strict;
use warnings;
require 'fonctions.pl' ;
 
my $cpt=0; # compteur de ligne
my $nIndentActuel=0; # indentation actuelle de tabulations
my $y=0; # compteur pour parcours du tableau pour écrire
my $j=0; # compteur pour parcours du tableau pour écrire
 
my @tab_Description =([0]); # Tableau des Description
my $tab_Description_ligne = 0; # Compteur des Description
 
my $nIndentReturn= 0; # identation du motif Return
my $bBlockReturn = 0; # vrai (1) ou faux (0) pour savoir si on est dans les Returns
 
my @bloc =();
 
#######################################################################################################
#                               Début du traitement et ouverture fichiers                             #
#######################################################################################################
 
    print "\n-------------------------------------------------------\n";
    print "|---------------  Debut du traitement  ---------------|\n";
    print "-------------------------------------------------------\n";
 
open FICHIER, '<', "X7_sans_com2.apt" or die("E/S : $!\n");
open ECRIRE_Description,  '>', "parserDesc.txt" or die("Erreur de création de parserDesc.txt");
 
$tab_Description[0][0]="Ligne";
$tab_Description[0][1]="Description";
$tab_Description[0][2]="Returns";
 
 
while ( my $ligne = <FICHIER>) {
	$cpt++;
	$nIndentActuel = CompteEspaces($ligne); # on stocker dans IndentActuel le nombre de tabulation sur la ligne en question
 
#######################################################################################################
#                                            Description                                              #
#######################################################################################################	
	if ( ( $ligne =~ m/\t{3}Data Field Class:\s*(.+)/ ) ||
	( $ligne =~ m/\t{3}Frame Class:\s*(.+)/ )||
	( $ligne =~ m/\t{3}Child Table Class:\s*(.+)/ )||
	( $ligne =~ m/\t{3}Multiline Field Class:\s*(.+)/ )) {
		$tab_Description_ligne++; # compteur du nombre de Objet Class
		$tab_Description[$tab_Description_ligne][0]=$cpt;
		$tab_Description[$tab_Description_ligne][1]= "NULL";
		$tab_Description[$tab_Description_ligne][2]= "NULL";
	}
 
	my $in_bloc = ($ligne =~ m/^\t*Description:\s*(.+)/) .. ($ligne =~ m{Returns}i); # cherche la présence d'un bloc
 
	push @{$tab_Description[-1]}, $ligne if $in_bloc; # Si l'on est dans un bloc, on remplit la table avec le nouvelle ligne
 
	# Si l'on a trouvé le tag de fin, on traite le bloc
	# traitement du bloc
	if ($in_bloc =~ /E0/) {
          pop @{$tab_Description[-1]}; # Supprimer la dernière ligne du dernier bloc
          $tab_Description[-1]->[0] =~ s/Description:\s*//; # Modifier la première ligne du dernier bloc
          print @{$tab_Description[-1]};
		  $tab_Description[$tab_Description_ligne][1] = @{$tab_Description[-1]};
          push @tab_Description, []; # Passer au bloc suivant
     }
 
#######################################################################################################
#                                            Returns                                                  #
#######################################################################################################		
 
	if ($bBlockReturn == 1){ # vrai
		if ($nIndentActuel <= $nIndentReturn){
			$bBlockReturn = 0; #faux
		}
		else{
			unless ( $ligne =~ m/^\t*Returns\s*(.+)/){
				$ligne =~ s/\s+//g;
				# chomp($ligne);
				if ( $tab_Description[$tab_Description_ligne][2] eq "NULL"){
						$tab_Description[$tab_Description_ligne][2] = $ligne;
				}
				else{
					$tab_Description[$tab_Description_ligne][2] = join "-", $tab_Description[$tab_Description_ligne][2], $ligne;
				}
			}
		}
	}
	# Propriétés Return 
	if ( $ligne =~ m/^\t*Returns/){
		$bBlockReturn = 1; 
		$nIndentReturn = CompteEspaces($ligne);
	}	
 
#######################################################################################################
#                  End Of File, verifie que toutes les lignes du fichier sont traités                 #
#######################################################################################################	
 
		if (eof) {
		print "-------------------------------------------------------\n";
		print "|--------------- Fin du fichier courant --------------|\n";
		print "-------------------------------------------------------\n";
		}
}	
 
#######################################################################################################
#                                       Ecriture du Tableau                                           #
####################################################################################################### 
 
for ($y=0; $y<=$tab_Description_ligne; $y++){
	for ($j=0; $j<=2; $j++){
		print ECRIRE_Description $tab_Description[$y][$j], "\			";
	}
	print ECRIRE_Description "\n";
}
 
#######################################################################################################
#                                         Compteur                                                    #
#######################################################################################################
 
    print "-------------------------------------------------------\n";
    print "| parser_external_functions.pl a parcouru ", $cpt, " lignes |\n";
    print "-------------------------------------------------------\n";
 
 #######################################################################################################
#                            Fin du traitement et Fermeture Fichiers                                  #
#######################################################################################################
 
    print "-------------------------------------------------------\n";
    print "|----------------  Fin du traitement  ----------------|\n";
    print "-------------------------------------------------------\n";
 
close FICHIER;

Voici ce que j'obtiens en sorti :

Code :

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

1
2
3
4
Ligne			Description			Returns			
1			4			NULL			
5			4			Boolean:			
9			6			Boolean:-INT:

Alors que je devrais avoir :

Code :

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

1
2
3
4
Ligne			Description			Returns			
1			Construct the object			NULL			
5			Enable or Disable the QuickObject			Boolean:			
9			This function actually puts the value into the QuickObject it does not up			Boolean:-INT:

Je sais que c'est normal que j'obtienne 4, 4, 6 dans la colonne description mais comment avoir les données et non pas la valeur ?

**Philou67430** · 11/01/2011, 15h00

Quand j'écris $tab_Description[-1], je déréférence le dernier élément du tableau @tab_Description.
Mais de ton coté, tu as mélangé l'usage d'un indice $tab_Description_ligne avec cette écriture. Je pense qu'il faut que tu homogénéises ça car il est très difficile de comprendre. Par ailleurs, je n'ai pas l'impression que tu renseignes les bonnes informations au bon endroit.

Il faut sans doute que tu trouves une aide locale, car je ne pourrai pas faire d'essais avec ton code (trop complexe, pas suffisamment de temps pour entrer dedans et le comprendre).

**oliviernouhi** · 11/01/2011, 15h12

Comment trouver une aide locale ?

Philou c'est vraiment important c'est ma dernière étape de mon projet, il faudrait vraiment que je gère cette partie.

J'ai vraiment besoin d'aide... !

**Philou67430** · 11/01/2011, 16h03

Essaye de remplacer ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
	my $in_bloc = ($ligne =~ m/^\t*Description:\s*(.+)/) .. ($ligne =~ m{Returns}i); # cherche la présence d'un bloc
 
	push @{$tab_Description[-1]}, $ligne if $in_bloc; # Si l'on est dans un bloc, on remplit la table avec le nouvelle ligne
 
	# Si l'on a trouvé le tag de fin, on traite le bloc
	# traitement du bloc
	if ($in_bloc =~ /E0/) {
          pop @{$tab_Description[-1]}; # Supprimer la dernière ligne du dernier bloc
          $tab_Description[-1]->[0] =~ s/Description:\s*//; # Modifier la première ligne du dernier bloc
          print @{$tab_Description[-1]};
		  $tab_Description[$tab_Description_ligne][1] = @{$tab_Description[-1]};
          push @tab_Description, []; # Passer au bloc suivant
     }

par ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
	my $in_bloc = ($ligne =~ m/^\t*Description:\s*(.+)/) .. ($ligne =~ m{Returns}i); # cherche la présence d'un bloc
 
	push @bloc, $ligne if $in_bloc; # Si l'on est dans un bloc, on remplit la table avec le nouvelle ligne
 
	# Si l'on a trouvé le tag de fin, on traite le bloc
	# traitement du bloc
	if ($in_bloc =~ /E0/) {
          pop @bloc; # Supprimer la dernière ligne du dernier bloc
          $bloc[0] =~ s/Description:\s*//; # Modifier la première ligne du dernier bloc
          $tab_Description[$tab_Description_ligne][1] = join @bloc;
          @bloc = (); # Passer au bloc suivant
     }

**oliviernouhi** · 11/01/2011, 16h26

Merci pour ta réponse :

J'ai fais le remplacement mais ça ne rend rien :

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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
# !usr/bin/perl -w
use strict;
use warnings;
require 'fonctions.pl' ;
 
my $cpt=0; # compteur de ligne
my $nIndentActuel=0; # indentation actuelle de tabulations
my $y=0; # compteur pour parcours du tableau pour écrire
my $j=0; # compteur pour parcours du tableau pour écrire
 
my @tab_Description =([0]); # Tableau des Description
my $tab_Description_ligne = 0; # Compteur des Description
 
my $nIndentReturn= 0; # identation du motif Return
my $bBlockReturn = 0; # vrai (1) ou faux (0) pour savoir si on est dans les Returns
 
my @bloc =();
 
#######################################################################################################
#                               Début du traitement et ouverture fichiers                             #
#######################################################################################################
 
    print "\n-------------------------------------------------------\n";
    print "|---------------  Debut du traitement  ---------------|\n";
    print "-------------------------------------------------------\n";
 
open FICHIER, '<', "X7_sans_com2.apt" or die("E/S : $!\n");
open ECRIRE_Description,  '>', "parserDesc.txt" or die("Erreur de création de parserDesc.txt");
 
$tab_Description[0][0]="Ligne";
$tab_Description[0][1]="Description";
$tab_Description[0][2]="Returns";
 
 
while ( my $ligne = <FICHIER>) {
	$cpt++;
	$nIndentActuel = CompteEspaces($ligne); # on stocker dans IndentActuel le nombre de tabulation sur la ligne en question
 
#######################################################################################################
#                                         Colonne Description                                         #
#######################################################################################################	
	if ( ( $ligne =~ m/\t{3}Data Field Class:\s*(.+)/ ) ||
	( $ligne =~ m/\t{3}Frame Class:\s*(.+)/ )||
	( $ligne =~ m/\t{3}Child Table Class:\s*(.+)/ )||
	( $ligne =~ m/\t{3}Multiline Field Class:\s*(.+)/ )) {
		$tab_Description_ligne++; # compteur du nombre de Function Class
		$tab_Description[$tab_Description_ligne][0]=$cpt;
		$tab_Description[$tab_Description_ligne][1]= "NULL";
		$tab_Description[$tab_Description_ligne][2]= "NULL";
	}
 
	my $in_bloc = ($ligne =~ m/^\t*Description:\s*(.+)/) .. ($ligne =~ m{Returns}i); # cherche la présence d'un bloc
 
	push @bloc, $ligne if $in_bloc; # Si l'on est dans un bloc, on remplit la table avec le nouvelle ligne
 
	# Si l'on a trouvé le tag de fin, on traite le bloc
	# traitement du bloc
	if ($in_bloc =~ /E0/) {
          pop @bloc; # Supprimer la dernière ligne du dernier bloc
          $bloc[0] =~ s/Description:\s*//; # Modifier la première ligne du dernier bloc
          $tab_Description[$tab_Description_ligne][1] = join @bloc;
          @bloc = (); # Passer au bloc suivant
     }
 
#######################################################################################################
#                                         Colonne Returns                                             #
#######################################################################################################		
 
	if ($bBlockReturn == 1){ # vrai
		if ($nIndentActuel <= $nIndentReturn){
			$bBlockReturn = 0; #faux
		}
		else{
			unless ( $ligne =~ m/^\t*Returns\s*(.+)/){
				$ligne =~ s/\s+//g;
				# chomp($ligne);
				if ( $tab_Description[$tab_Description_ligne][2] eq "NULL"){
						$tab_Description[$tab_Description_ligne][2] = $ligne;
				}
				else{
					$tab_Description[$tab_Description_ligne][2] = join "-", $tab_Description[$tab_Description_ligne][2], $ligne;
				}
			}
		}
	}
	# Propriétés Return 
	if ( $ligne =~ m/^\t*Returns/){
		$bBlockReturn = 1; 
		$nIndentReturn = CompteEspaces($ligne);
	}	
 
#######################################################################################################
#                  End Of File, verifie que toutes les lignes du fichier sont traités                 #
#######################################################################################################	
 
		if (eof) {
		print "-------------------------------------------------------\n";
		print "|--------------- Fin du fichier courant --------------|\n";
		print "-------------------------------------------------------\n";
		}
}	
 
#######################################################################################################
#                                       Ecriture du Tableau                                           #
####################################################################################################### 
 
for ($y=0; $y<=$tab_Description_ligne; $y++){
	for ($j=0; $j<=2; $j++){
		print ECRIRE_Description $tab_Description[$y][$j], "\			";
	}
	print ECRIRE_Description "\n";
}
 
#######################################################################################################
#                                         Compteur                                                    #
#######################################################################################################
 
    print "-------------------------------------------------------\n";
    print "| parser_external_functions.pl a parcouru ", $cpt, " lignes |\n";
    print "-------------------------------------------------------\n";
 
 #######################################################################################################
#                            Fin du traitement et Fermeture Fichiers                                  #
#######################################################################################################
 
    print "-------------------------------------------------------\n";
    print "|----------------  Fin du traitement  ----------------|\n";
    print "-------------------------------------------------------\n";
 
close FICHIER;

En sorti ma colonne Description est vide :

Code :

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

1
2
3
4
Ligne			Description			Returns			
1						NULL			
5						Boolean:			
9						Boolean:-INT:

**Philou67430** · 11/01/2011, 16h33

Il faut au minimum corriger

Code :

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

join @bloc

par

Code :

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

join "", @bloc

**oliviernouhi** · 11/01/2011, 16h57

Effectivement désolé !

Super vraiment un grand Merci Beaucoup Philou tout est parfait !

Recupération de plusieurs lignes dans un fichier

Langage Perl

Discussions similaires

Partager

Partager