Ubuntu-fr

inserm

[Résolu] parser une valeur

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.

Dernière modification par inserm (Le 29/10/2012, à 15:29)

inserm

Re : [Résolu] parser une valeur

Merci
J'ai trouvé en rajoutant deux lignes:

   

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