Merci
J'ai trouvé en rajoutant deux lignes:
$value = substr($value,0,3);
$value =~ s/^(\d+)(\d)$/$1.$2/;
print "$value\n";
Merci
J'ai trouvé en rajoutant deux lignes:
$value = substr($value,0,3);
$value =~ s/^(\d+)(\d)$/$1.$2/;
print "$value\n";
Bonjour,
voilà le script
#!/usr/bin/perl
my $value='220150250';
$value=~ m/(\d{8})\d{6}/;
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.