Discussion :

[SearchProblem]

Bonjour,

Je m'excuse si ma demande parait simple pour quelques uns mais je débute avec Perl et j'ai un problème en recherchant un caractère spécial dans un fichier texte à l'aide de mon script.
Voila je veux trouver cette chaine "³R³" dans une ligne qui ne contient pas le caractère "#" et le caractère "*" dans mon fichier texte cible pour ce faire j'utilise ce bout de code et ça fonctionne pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
open (FICHIER,"<$txtprotfile_path");
	while($Ligne = <FICHIER>) 
	{
		my $car = substr($Ligne,24,3);
		my $speed_car = substr ($Ligne,47,5);
		if (!($Ligne =~ "\\*") && !($Ligne =~ "#") && ($car eq "\³R\³"))
		{
			$speed = $speed_car;
			$test = 1;
		}
	}

[Lolo78]

Ton expression régulière ne marche certainement pas:

Code :

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

if (!($Ligne =~ "\\*") && !($Ligne =~ "#") ...

Essaie plutôt:

Code :

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

if ( $Ligne !~ /\*/ and  $Ligne !~ /#/) ...

Pour la seconde partie ( "³R³"), je ne suis pas sûr, mais je doute qu'il faille mettre des back slashes, je pencherais plutôt pour :

Code :

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

... and $car eq "³R³")

[SearchProblem]

Merci pour la réponse pour la première partie ca marche nikel mais pour ce qui est du caractère "³" ca fonctionne tjr pas. J'ai tester sans "\" et ca marche pas.

[Lolo78]

Le truc, c'est que j'ai essayé de tester pour ces "³R³" et ça marche pour moi, mais comme j'utilise la même chose pour encoder ma chaîne à tester et mon test, c'est assez normal que ça marche dans mon cas. Peux-tu fournir quelques lignes de ton fichier en entrée (en pièce jointe, pas en copier-coller) pour pouvoir tester sur un fichier réel? Il y a peut-être un problème d'encodage (UTF8, Unicode).

[SearchProblem]

Voici une partie du fichier d'entré

[Lolo78]

Bonjour,

j'ai essayé ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
use UTF8;
open (FICHIER,"<", "fichier_entre.TXT");
while($Ligne = <FICHIER>) 
{
	my $car = substr($Ligne,24,3);
	my $speed_car = substr ($Ligne,47,5);
	if ( $Ligne !~ /\*/ and  $Ligne !~ /#/ and $car eq "³R³")
	{
		$speed = $speed_car;
		$test = 1;
		print "Success\n"
	}
}

Et ça m'a bien imprimé Success une fois sur ton fichier de test, ce qui prouve que la comparaison a marché sur une ligne du fichier (a priori l'avant-dernière).