Récupérer le début d'une chaine de caractères

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.

Une manière simple :

Code:

---

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

---

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

Merci Philou !

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:

---

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).