[perl] ajout d'un zéro devant un chiffre si <10

ajout d'un zéro devant un chiffre si <10 [perl] - Perl - Programmation

Marsh Posté le 02-09-2004 à 14:18:33    

Je recherche un moyen rapide d'ajouter un 0 devant un chiffre s'il est inférieur à 10.

Reply

Marsh Posté le 02-09-2004 à 14:18:33   

Reply

Marsh Posté le 02-09-2004 à 14:20:42    

if ($a<10)
 $a="0".$a
 
[:autobot]

Reply

Marsh Posté le 02-09-2004 à 14:21:48    

merci j'essaie de suite..
 
Je débute et j'ai un petit délai pour pondre un script qui marche, sinon, mon chef va me zigouiller ! lol

Reply

Marsh Posté le 02-09-2004 à 14:25:54    

ça marche po !  :(

Reply

Marsh Posté le 02-09-2004 à 14:26:59    

j'ai mis ca mais je connait quasiment pas perl hein, juste php (qui ressemble) :D
 
mais via une concatenation ca doit etre faisable :)
 
t'as pas oublier le ";" a la fin par hazard, mes {}
sinon ca te donne quelle erreur?

Reply

Marsh Posté le 02-09-2004 à 14:28:06    

ouais, je viens de trouver.. manquait les accolades ! ;)

Reply

Marsh Posté le 02-09-2004 à 14:29:15    

moi ca marche
 

Code :
  1. $i = 2;
  2. if ($i<10) {
  3. $i="0".$i;
  4. }
  5. print $i;


 

Citation :

C:\Perl\bin>perl c:/work/p3rl/helloworld.pl
02

Reply

Marsh Posté le 02-09-2004 à 15:06:50    

sprintf("%02d", $a);

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed