Discussion :

[oliviernouhi]

Bonjour,

Je dois vérifier si mon fichier fini par :

Code :

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

1
2
3
COMMIT;
 
/

Mais il peut y avoir autant de saut de ligne entre "COMMIT" et le "/" et même des commentaires comme ceci :

Code :

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

1
2
3
4
5
6
7
8
COMMIT;
 
--------------------------------------------------
-- 8847 - end SJ 22 nov 2010:
--------------------------------------------------
 
 
/

Sachant qu'un commentaire commence par " -- "

Comment faire svp ?

[Dimitry.e]

Avec une mini machine à état, dont voici un bout :

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
 
use strict;
use warnings;
 
my $l ="";
 
while( defined( $l = <DATA> ) && $l!~/^COMMIT;$/ ) {
 
}
die "Erreur : ne finit pas par COMMIT; / \n" if !defined( $l ) || $l!~/^COMMIT;$/;
 
while (defined( $l = <DATA> ) && $l=~/^--/ && $l!~/^\/$/ ) {}
 
die "Erreur : ne finit pas par COMMIT; / \n" if !defined( $l ) || $l!~/^\/$/;
 
die "Erreur : ne finit pas par COMMIT; / \n" if defined( $l = <DATA> );
 
print "File OK\n";

[Philou67430]

A la ligne 10, le deuxième élément du test ($l!~/^COMMIT;$/) ne peut jamais arriver, puisqu'en sortie de boucle, soit $l n'est pas défini, soit COMMIT; est trouvé.
A la ligne 12, il n'est pas tenu compte des lignes vides.

[mamax29]

salut,

Je verrais plutôt un truc comme cela:

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
 
my $l;
my $find_commit = 0;
my $find_slash = 0;
 
while( defined( $l = <DATA> )) {
	if ( $l =~ m/^COMMIT;$/ )
	{
		$find_commit = 1;
	}
	if ( $l =~ m/^\/$/ && $find_commit == 1 )
	{
		$find_slash = 1;
	}
}
 
if ( $find_slash == 1 && $find_commit == 1 )
{
	print "Le fichier se termine par \"COMMIT;\" et \"/\" \n"; 
}
else
{
	print "Le fichier ne se termine par par \"COMMIT;\" et \"/\" \n"; 
}

on parcourt le fichier, on cherche "COMMIT;" une fois ce pattern trouvé on continue de parcourir le fichier à la recherche de "\".

[oliviernouhi]

Merci pour vos réponses c'est impeccable sauf sur un point !

J'ai dans mon code plusieurs fois le mot COMMIT !
Comment faire ?

Car ce dernier programme ne fonctionne plus du coup..

Y aurait t'il moyen de partir de la fin du fichier, et la si on trouver le Slash puis un COMMIT hors lignes vide et lignes de commentaires... je suis dans le flou

[Philou67430]

on parcourt le fichier, on cherche "COMMIT;" une fois ce pattern trouvé on continue de parcourir le fichier à la recherche de "\".

Ton algorithme ne garanti pas que COMMIT; et / sont les deux dernières informations du fichier, il peut y avoir d'autres informations (autres que des commentaires). De ce point de vue, l'algorithme de dimitry est plus conforme à la spécification.

[mamax29]

Ben, au départ cela n'a pas été spécifié


avec ceci:

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
 
while( $l = <DATA> )
{
	print "$l";
	if ( $l =~ m/^COMMIT;$/ )
	{
		$find_commit = 1;
	}
	elsif ( $l =~ m/^$/ && $find_commit == 1 || $l =~ m/^--/  && $find_commit == 1  )
	{
		$find_commit = 1;
	}
	else
	{
		$find_commit = 0;
	}
}