Discussion :

[soad029]

Bonjour,

Voici une demande toute simple.

Comment je peux récupérer ce qu'il y a avant "Données" dans ma chaine de caractère ci-dessous SVP ?

my $texte = "SentDonnées";

J'ai passé l'après midi de hier sur les pages des Regex mais je ne trouve pas ce qu'il me faut.

D'avance, merci pour votre aide.

[Philou67430]

Une manière simple :

Code :

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

1
2
$perl -E 'my $texte = "SentDonnées";say $texte =~ /(.*?)Données/'
Sent

[soad029]

En effet c'est tout simple et ça marche nickel.

Merci Philou !

[Philou67430]

On peut aussi utiliser l'assertion (de taille 0) post-match, mais le comportement pourrait être différents si l'on colle plusieurs motifs concordants :

Code :

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

1
2
3
$ perl -E 'my $texte = "SentDonnéesReceivedDonnées";say join ",", $texte =~ /(.+?)Données/g;say join ",", $texte =~ /(.+?(?=Données))/g'
Sent,Received
Sent,DonnéesReceived

De même, je suggère de remplacer * par +, et peut-être d'être plus restrictif sur le . pour n'accepter que les caractères autorisés avant "Données" (tu n'as pas précisé, donc j'ai pris l'option la plus simple : n'importe quel caractère).