Discussion :

[oliviernouhi]

Bonjour,

J'ai un code qui parcours un fichier et qui fait pleins de choses, et je voudrais rajouter ceci :

Comment faire pour vérifier que chacune des lignes que je parcours d'un fichier finissent bien par ";"

Merci d'avance

[mamax29]

avec un REGEX simple comme:

Code :

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

$ligne =~ m/;$/;

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
my $Fichier='fichier.txt';
 
open (FIC, "<$Fichier") || die "Ouverture impossible du fichier $Fichier: $!";
 
while ($ligne = <FIC> )
{
	if ( $ligne =~ m/;$/ )
	{
		print "ligne OK\n";
	}
	else
	{
		print "ligne NOK\n";
	}
}
 
close (FIC);

[oliviernouhi]

Merci !