Discussion :

[batmatm]

Salut à tous,

J'ai un petit souci avec une expression régulière. Je fais un test avec le petit programme suivant :

Code :

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

1
2
3
4
5
6
7
8
#!/usr/bin/perl -w
use strict;
 
my $text = " hey bonjour\n         \t          pof pif";
 
print "$text\n";
$text =~ s/^[ \t]+//g;
print "$text\n";

Normalement, je voudrais que le deuxième print devrait m'afficher

Code :

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

1
2
hey bonjour
pof pif

Au lieu de ça, le remplacement semble ne fonctionner que sur la première ligne ?! Ça me donne donc :

Code :

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

1
2
hey bonjour
                          pof pif

J'ai testé ce bout de code sous windows avec cygwin et sur une debian, le résultat est le même.

Je ne comprends pas du tout ce comportement, je dis bien : «supprime moi (s) tout espace ou tabulation ([ \t]+) en début de ligne (^) et ce pour toutes les occurrences (/g).». Non ?

Quelqu'un voit pourquoi ça marchouille pas pour toutes les lignes et surtout quelle serait la solution à ce fichu problème ?

Merki
@++

[Invité]

Ici, tu n'a qu'une seule "ligne" dans $text

Code :

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

1
2
 
my $text = " hey bonjour\n         \t          pof pif";

si on pouvait mettre les marqueurs ^ et $ dans les chaine te ferait :
[fixed]^ hey bonjour\n \t pof pif$[/fixed]
donc, tu n'a que les espaces de debuts qui sont supprimés...

donc, pour faire ce que tu veux, on pourrait proceder de cette maniere :

Code :

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

$text =~ s/^[ \t]+(.*?\n)[ \t]+(.*?\n?)/$1$2/g;

mais ca nemarhce pas très bien...
il vaudrait mieux faire un truc du genre :

Code :

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

1
2
3
4
5
6
 
@array = split /\n/, $text;
for (@array) {
    s/^[ \t]+//;
}
$text = join "\n", @array;

ATTENTION : code non testé...

[batmatm]

Si tu as raison... Je trouve que c'est un comportement de Perl, comment dire, stupide ?!?

^ désigne l'endroit après un \n justement ?
Je ne saisis pas la nuance là, je crois...

^ désigne un début de ligne, pourquoi diantre Perl ne prend il pas le texte qui suit un \n comme un début de ligne ???

[2Eurocents]

Si tu as raison... Je trouve que c'est un comportement de Perl, comment dire, stupide ?!?

^ désigne l'endroit après un \n justement ?
Je ne saisis pas la nuance là, je crois...

^ désigne un début de ligne, pourquoi diantre Perl ne prend il pas le texte qui suit un \n comme un début de ligne ???

Non, c'est un comportement logique, et qui est tout à fait justifié dans la doc perlre (man perlre, ou perldoc perlre).

Dans ton cas, il faut juste préciser à perl que la recherche de ^ est multiligne :

Code :

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

$text =~ s/^[ \t]+//mg;

Il faut juste utiliser le bon contexte (paramètre) de recherche en fonction de ce que l'on vise et de ce que l'on sait de la qualité des données.

[batmatm]

OK, c'est bon ça marche.

Donc en résumé, si on met g tout seul, le ^ est compris comme le début d'une chaîne. Si on met mg, c'est le début d'une ligne, donc tout caractère suivant \n sera pris comme ^.

Merci