Forum Ubuntu-fr.org / [Résolu] parser une valeur

Réponse à : [Résolu] parser une valeur

dummy@example.com (inserm) — Mon, 29 Oct 2012 13:28:50 +0000

Merci
J'ai trouvé en rajoutant deux lignes:

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

dummy@example.com (inserm) — Mon, 29 Oct 2012 10:35:54 +0000

Bonjour,

voilà le script

#!/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.