Discussion :

[ddouet2000]

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

[djibril]

ton exemple n'est pas clair, tu veux mettre un espace tous les deux caractereres? ou uniquement apres deux caracteres?
Car dans ton exemple, on ne trouve pas l'interet du 4 et 5

[ddouet2000]

Désolé.
Je voudrais uniquement inserer un espace apres 2 charactères.

[iblis]

Ben, pourquoi pas avec substr() ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
my $chaine="abcdef";
print substr($chaine, 0, 2) . " " . substr($chaine, 2);

[ddouet2000]

Exact
Je ne connais malheureusement pas encore toutes les commandes
je chercherai un peu plus la prochaine fois...

Merci !

[djibril]

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
my $chaine="abcdef";
$chaine =~ s/(.{2})(.+)/$1 $2/;
print $chaine;

voilà

[ddouet2000]

La méthode avec le substr fonctionne correctement dans mon code.

J'ai essayé avec le substitute mais je ne sais pas pourquoi il ne me retourne que seul 1 chiffre...

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
my $chaine ="471980";
$chaine =~ s/(.{3})(.+)/$1 $2/;
print "$chaine";

ca me remonte "1"... alors que ca devrait faire "471 980", non ?

Je developpe avec un éditeur de text (PSPad) sous windows et j'utilise Active Perl 5.8, ne serait-ce pas dû à ca ?

[djibril]

La méthode avec le substr fonctionne correctement dans mon code.

J'ai essayé avec le substitute mais je ne sais pas pourquoi il ne me retourne que seul 1 chiffre...

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
my $chaine ="471980";
$chaine =~ s/(.{3})(.+)/$1 $2/;
print "$chaine";

ca me remonte "1"... alors que ca devrait faire "471 980", non ?

Je developpe avec un éditeur de text (PSPad) sous windows et j'utilise Active Perl 5.8, ne serait-ce pas dû à ca ?

bah oui, moi ça me print bien 471 980
moi aussi j'utilise PSPAD et utilise perl 5.8.8

[Jedai]

Sinon tu peux aussi faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
my $chaine = "471980";
substr $chaine, 2, 0, ' ';
print "$chaine";

--
Jedaï