Discussion :

[webol]

Bonjour,

Je m'arrache de nouveau les cheveux, même si je n'en ai plus beaucoup, sur les regex !

Si quelqu'un peux me venir en aide.

Voila j'ai une chaine de caractère qui ressemble à ça :
$val="Msgs=667964;Waits=662578;Misses=35077790;Max;HP;Msg=;60;Max;NP;Msg=;57;Current;Depth=;0;Max;Depth=;90;Current;High;Depth=;0;Current;Norm;Depth=;0;Current;Threads=;58;Max;Threads=;58 Current=419;Max=713;Limit=3072"

La dedans je ne veux garder que les chiffres et les points virgule.

Quand je fait $val =~ s/[^0-9]//g; je garde ne bien que le chiffres mais comment faire pour garder aussi les ; ?

Par avance merci.

[Gardyen]

quelle valeur finale tu veux ?

juste une chaine de caractère contenant les nombres séparés par des points-virgules

Code :

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

667964;662578;35077790;;;;60;;;;57;;;0;;;90;;;;0;;;;0;;;58;;;58419;713;3072

? ou la liste de tous les nombres dans ta chaine ?

[JeanMi3000]

je pense que ça réponds à ta demande

Code :

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

1
2
3
4
5
6
my $val="Msgs=667964;Waits=662578;Misses=35077790;Max;HP;Msg=;60;Max;NP;Msg=;57;Current;Depth=;0;Max;Depth=;90;Current;High;Depth=;0;Current;Norm;Depth=;0;Current;Threads=;58;Max;Threads=;58 Current=419;Max=713;Limit=3072";
 
print "val :: $val\n";
 
$val =~ s/[^0-9;]//g;
print "val :: $val\n";

[webol]

Merci à vous 2 pour votre aide.

Je veux obetnir ça : 64;696723;691139;36367579;60;57;0;90;0;0;58;58;378;713;3072;0

[Gardyen]

tu peux faire ça pour obtenir la liste des nombres

Code :

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

my @list = ($val =~ m/([0-9]+)/g);

puis utiliser join pour avoir ta chaine finale (si tu en as besoin)
ou reprendre la formule donnée précédemment puis reparser la valeur de retour

bon courage !

[webol]

J'ai fait comme ça et ça fonctionne

Un grand merci à vous pour votre aide et rapidité.

Webol.