Discussion :

[ecthelion]

Bonjour à tous,

Je dispose d'un script comme ceci (ce n'est qu'un exemple que je met entre balises code parce qu autrement il ne reconnait pas les espaces que je met):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
*  Bonjour
*               aaaaaa                                   
*  je
*      aaaaa
                             aaaaa
*                  aaaa
*  m'appelle
*  Bernard
  aaaaa
*aaaa
*                   aaaaaaa

Je cherche à isoler uniquement les lignes qui possèdent une étoile (*) et deux espaces derrière (dans ce cas la pour former la phrase "Bonjour je m'appelle Bernard")

N'étant pas bon en expressions régulières je ne vois pas trop comment faire...

Merci d'avance!

[minus]

Je te donne la solution, mais si tu veux arriver a faire des regex tout seul va falloir mettre les mains dans le cambouis et les FAQ pour comprendre :

Code :

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

1
2
3
if ($string =~ /^\*\s{2}(.*)/ ) {
    my $result = $1;
}

Bon je t'explique un peu quand meme :
- "/^" ca va obliger l'expression a chercher en debut de chaine
- "\*\s{2}" si je me trompe pas ca va chercher l'expression "* et deux espaces" (on utilise le \ pour proteger les caracteres qui sont aussi des regex)

- "(.*)" va mettre en memoire toute la suite de la chaine dans la variable $1



Bon voila, mais un conseil quand meme : passe du temps a essayer de comprendre les expressions regulieres car c'est un des gros benefice du perl

[ecthelion]

Bonjour,

Tout d'abord merci pour ta réponse!

J'ai essayé ton code mais il ne marche pas... Je pense comprendre pourquoi.

En effet ton code isole les lignes (* et deux espaces) mais une ligne qui possède une etoile et trois espaces possède aussi une étoile et deux espaces.

En regardant dans l'introduction au perl dispo sur ce site ils disent que {n} veux dire exactement n fois donc ton code devrait marcher... à moins que en regex quand on reconnait n+1 élément on en reconnait forcement n et c'est pour cela que les lignes qui possèdent plus de deux espaces sont reconnues aussi...

J'avoue etre un peu perdu...

[Jedai]

C'est juste parce que le point reconnait les espaces, donc la regex reconnait les lignes qui commencent par "* " puis n'importe quoi (y compris des espaces...). Il faut plutôt utiliser :

Code :

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

m/^\*  ([^ ].*)/

autrement dit "* " puis n'importe quel caractère sauf un espace, puis n'importe quoi.

--
Jedaï

[ecthelion]

J'ai pas compris ton message Jedai.

Ce que je veux c'est reconnaitre les lignes qui ont "*" puis exactement 2 espaces (pas plus pas moins).

[minus]

Ah oui le .* c'est pas bien **se colle une baffe**.
J'avais pas pensé a ce cas la.


@ecthelion
En principe l'expression de Jedai devrait mieux marcher
(les espaces sont de "vrais" espaces et pas \s qui prend en compte aussi les tabulations etc...)

[Jedai]

J'ai pas compris ton message Jedai.

Ce que je veux c'est reconnaitre les lignes qui ont "*" puis exactement 2 espaces (pas plus pas moins).

Oui, c'est ça, il faut donc que tu reconnaisse "*" puis 2 espaces puis quelque chose qui n'est pas un espace, c'est ce que fait ma regex.

Code perl :

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

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
use strict; use warnings;
my $filename = "le chemin de ton fichier";
open my($file), '<', $filename
  or die "I/O error $filename : $!\n";
 
my $message = '';
while( my $line = <$file> ){
  chomp($line);
  $message .= " $1" if ($line =~ m/^\*  ([^ ].*)/ );
}
print $message;

--
Jedaï