parser une valeur [Résolu]

[inserm]

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.

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

[inserm]

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";

[Philou67430]

Tu peux aussi le faire en une seule ligne :

Code :

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

[Lolo78]

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/;