Discussion :

[Wafa_o]

Bonjour,

J'ai besoin d'aide.
J'ai placé un fichier dans un tableau pour l'analyser.
L'une des lignes du fichier est de la forme :
xx %bbbb = (

voilà le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
for ( 0 .. $#tableauFichier) { 
 
$IdxLigneDuFichier = $_ ; 
for ( 0 .. $#tableauFichier) { 
if ( $tableauFichier[$IdxLigneDuFichier] =~ /[\s+]xx \%bbbb[\s+]=[\s+]\([\s+]/ ) { 
print "ca marche\n"; 
exit; 
} 
else { print "ca ne marche pas !!!! \n"; exit;} 
 
} 
}

Probleme: ca ne marche pas.
Quelqu'un a une idée ? Merci d'avance

[Jasmine80]

Que cherches-tu précisément à faire? Pourquoi parcoures-tu deux fois le même tableau?

L'une des lignes du fichier est de la forme :
xx %bbbb = (

Quel motif doit tester ton expression régulière? 2 fois ma même lettre, un espace, un pourcent puis 4 fois la même lettre, un espace, un égal, un espace et une parenthèse ouvrante? Quelle valeur veux-tu récupérer?

Code :

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

1
2
3
4
my $ligne = 'xx %bbbb = (';
if ($ligne =~ /xx \%bbbb = \(/){
    print "match\n";
}

Pour plusieurs espaces

Code :

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

$ligne =~ /xx\s+\%bbbb\s+=\s+\(/

Les crochets carrés servent à utiliser des alternatives ou à écrire la négation. Ils ne servent donc qu'à la déco dans ton expression.

Si /[\s+]xx \%bbbb[\s+]=[\s+]\([\s+]/ ne fonctionne pas, c'est probablement parce que tu exiges que la ligne commence par une espace. Tu peux remplacer les + par des *