Bonjour,

J'aurais besoin d'inserer un espace dans une chaine de caractère numérique suivant le nombre de caractère de la chaine.
Ex :
chaine de 4 caractères : xxxx => xx xx
chaine de 5 caractères : xxxxx => xx xxx
...

Je bloque sur la substitution...
Pourriez vous m'aider s'il vous plait ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
 
sub Formatchaine
{
  my $chaine = shift;
  my @tableau = split( // , $chaine);
  my $nbcaracteres = $#tableau + 1;
 
#exemple avec 5 caractères
  if ($nbcaracteres == 5)
      {
      println "===> il y a bien 5 caracteres";
      $chaine =~ s/^\d{2}//g; #Grrr....
      return $chaine;
      }
  else
      {
  return $chaine;
      }
}