parser une valeur

Bonjour,

voilà le script

Code:

---

1 2 3 4 5 6

#!/usr/bin/perl   my $value='220150250';   $value=~ m/(\d{8})\d{6}/; print "$value\n";

---

Je veux afficher les trois premier chiffre à gauche : 22.0

Merci.

Tu peux faire cela avec une regex:

Code:

---

print "$1\n" if $value =~ /^\d{3}/;

---

Si tu es sûr qu'il n'y a que des chiffres, la fonction substr sera sans doute un peu plus performante.

Citation:

---

Envoyé par Lolo78

Tu peux faire cela avec une regex:

Code:

---

print "$1\n" if $value =~ /^\d{3}/;

---

Si tu es sûr qu'il n'y a que des chiffres, la fonction substr sera sans doute un peu plus performante.

---

Merci
J'ai trouvé en rajoutant deux lignes:

Code:

---

1 2 3 4

$value = substr($value,0,3); $value =~ s/^(\d+)(\d)$/$1.$2/; print "$value\n";

---

Tu peux aussi le faire en une seule ligne :

Code:

---

$value =~ s/^(\d+)(\d).*$/$1.$2/;

---

Ah, tu veux ajouter un point entre le second et le troisième chiffre? Je n'avais pas compris ça.

Dans ce cas, oublie substr et utilise directement une substitution dans une expression régulière:

Code:

---

$value =~ s/^(\d){2}(\d)/$1.$2/;

---