Discussion :

[Ftina]

Bonjour à tous,

Comme je débute en perl, je trouve toujours des difficultés dans les regex,

j'ai un fichier contenant plusieurs lignes dont je veux extraire seulement les lignes sous cette forme;

deb: Mot1: phrase.
deb: Mot2: phrase.
...

j'ai fait l'expression suivante:

Code :

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

1
2
3
 
 
next unless (/^\s*(deb):\s*(.*?)([^\s:]*):\s*([^.]*\.)$/);

en fait le problème dans cette expression est qu'elle me renvoie aussi des lignes de forme: deb: mot1 mot 2: phrase. (càd 1 ou plusieurs mots après le premier : alors que je ne veux qu'un seul mot après le premier

comment je peux modifier cette expression SVP ?

[Lolo78]

Bonjour,

essaie de remplacer:

Code :

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

1
2
next unless (/^\s*(deb):\s*(.*?)([^\s:]*):\s*([^.]*\.)$/);

par:

Code :

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

1
2
next unless (/^\s*(deb):\s*(\S+):\s*([^.]*\.)$/);

[Ftina]

Bonsoir,
J'ai remplacé mais la sortie est vide !!

[Lolo78]

Hum, tu n'expliques pas bien ce que tu veux faire. Tu veux rejeter les lignes où il y a deux mots, ou tu ne veux garder que le premier mot quand il y en a plusieurs?

[Ftina]

je veux garder les lignes commençant par le mot deb puis deux points ( puis espace puis un seul mot suivi de deux points puis un ensemble des mots et un point à la fin.

[Lolo78]

Donc, je n'avais probablement pas bien compris ton besoin, mais je ne suis toujours pas sûr de bien comprendre.

Si, dans ta liste de lignes, tu as:

Code :

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

1
2
 
 deb: mot1 mot 2: phrase.

tu veux l'éliminer, ou tu veux garder:

Code :

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

1
2
 
 deb: mot1: phrase.

uniquement (et donc éliminer seulement les mots supplémentaires?

[Ftina]

si j'ai des lignes comme
deb: mot1 mot 2: phrase.

je veux les éliminer et ne garder que des lignes de la forme
deb: mot: phrase.

[Lolo78]

Dans ce cas, j'avais bien compris au départ et je ne vois pas pourquoi mon expression régulière ne marche pas chez toi alors qu'elle marche chez moi comme le montre ce script uniligne:

Code :

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

1
2
3
4
5
6
7
 
$ perl -e 'for my $str ("deb: Mot1: phrase.", "deb: Mot2: phrase.", "deb: Mot1 Mot2: phrase") { 
               print "$str\n" if $str =~ /^\s*(deb):\s*(.*?)([^\s:]*):\s*([^.]*\.)$/;
           }
          '
deb: Mot1: phrase.
deb: Mot2: phrase.

Montre peut-être plus de lignes de ton script, pour qu'on comprenne le contexte.